NewsSearch

<% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From SmallClass_New Where EnBigClassName='" & BigClass & "'",conn,1,1 if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof %> <% rsSmallClass.movenext loop end if rsSmallClass.close set rsSmallClass=nothing %>

"> "> "><%=rsSmallClass("EnSmallClassName")%>

<% If IsFlash2="Yes" Then %>

<% Else %>

<% end If%>

<%=BigClass%>

<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from news where EnBigClassName='"&BigClass&"' and EnSmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from news where EnBigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("No Record!") else %> <% rs.PageSize=20 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <% rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %>

	<% if rs("FirstImageName")<>"" then response.write "" end if %> "><%= RS("EnTITLE") %>	[<%=FormatDateTime(RS("AddDate"),2)%>] (Click<%= RS("hits") %>)
<%if Page<2 then response.write "Home Previous " else response.write "Home " response.write "Previous " end if if rs.pagecount-page<1 then response.write "Next page Last Page" else response.write "" response.write "Next page Last Page" end if response.write " Page："&Page&"/"&rs.pagecount&"Page " response.write " Total"&rs.recordcount&"Article Record "&rs.pagesize&"Article Record/Page" response.write " Go：" response.write " " %>