<%@ Language="vbscript" CodePage="65001" %> <% Response.CharSet = "UTF-8" %> <% 'Session.CodePage = "65001" %> <%'enableSessionState=False%> <% ' **************************************************************** ' system : LittleSoft Website System ' model name : ' function : ' programmer : http://www.littlesoft.cn ' last modify date : ' **************************************************************** %> <%ForbidRefresh 0.600%> <%Dim DataBasePath : DataBasePath=1%> <% OpenDataBase Dim rs,sqlStr Set rs=CreateObject("adodb.recordset") %> <% Dim Current_Page : Current_Page=FindArray(LanguageArray,"Skin_NewsCenter") Dim Current_WebTitle : Current_WebTitle=Current_Page & "-" & str_WebTitle %> <% sqlStr="select * from T_News where showtag='1' and LangCode='" & ver_lang & "' order by issueDate desc" %>

<%=Current_Page%>

<%If PageCount>1 Then%> <%DisplayPageCount Page,PageCount,extraPara%> <%End If%>
<%CloseDataBase%> <% Sub ShowOnePageNew(rs) Dim iPage,RecNo For iPage = 1 To PageSize RecNo = (page-1) * pageSize + iPage Dim ImageURL : ImageURL=rs("ImageURL") %>
  • <%If NotEmpty(ImageURL) Then%> " class="news_thumb"> <%End If%> <%=FormatDate(rs("issueDate"),"yyyy-nn-dd")%>
    " class="news_title"><%=rs("NewsTitle")%>

    <%=rs("NewsBrief")%>

  • <% rs.MoveNext If rs.EOF Then Exit For Next End Sub %>