<% Set rs=Server.CreateObject("ADODB.Recordset") BigClassID=replace(Trim(request.QueryString("BigClassID")),"'","") if BigClassID="" or not IsNumeric(BigClassID) then BigClass=request("BigClass") SmallClass=request("SmallClass") else sql="select * from 0791idc_BigClass_New where BigClassID="&BigClassID rs.open sql,conn,1,1 BigClass=rs("BigClassName") ID=BigClassID end if %>

新闻搜索

<% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From 0791idc_SmallClass_New Where BigClassName='" & 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 %>

<% If ISHTML = 1 Then AutoLink = ""&NewClassName&""&Separated&""&rs("BigClassID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsClass.asp?BigClass="&BigClass&"" End If response.write response.write ""&BigClass&"" %>

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

首页>><%=BigClass%>

<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from 0791idc_news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from 0791idc_news where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") 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 %> <% If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "shownews.asp?ID="&rs("ID")&"" End If Response.Write ""&rs("TITLE")&""&VbCrLf %>	[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<%= RS("hits") %>)
<% If ISHTML = 1 Then AutoLinkClass = ""&NewClassName&""&Separated&""&ID&""&Separated&"1."&HTMLName&"" Else AutoLinkClass = "NewsClass.asp?BigClass="&BigClass&"" End If response.write "更多>>>"&VbCrLf %> <% If ISHTML = 1 Then response.write " " if Page<2 then response.write "首页上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页尾页" else response.write "" response.write "下一页尾页" end if response.write " 页次："&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页 " else response.write " " if Page<2 then response.write "首页上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页尾页" else response.write "" response.write "下一页尾页" end if response.write " 页次："&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到：" response.write " " end if %>