<% Set rs=Server.CreateObject("ADODB.Recordset") BigClassID=replace(Trim(request.QueryString("BigClassID")),"'","") If BigClassID = "" Or Not IsNumeric(BigClassID) Then BigClassID = 0 Else BigClassID = Cdbl(BigClassID) End If if BigClassID =0 then BigClass=request("BigClass") SmallClass=request("SmallClass") else sql="select * from okuoo_news " rs.open sql,conn,1,1 BigClass=rs("BigClassName") ID=BigClassID end if bsortname=Request.QueryString("BigClass") if len(bsortname)=0 then bsortname="新闻动态" end if %> <%const ChannelID=2 HeadTitle="新闻动态" if HeadTitle<>"" then SiteTitleAll= HeadTitle &"-"& BigClass & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>

<% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select BigClassID,BigClassName from okuoo_BigClass_New order by BigClassID" rslist.open sql,conn,1,3 do while not rslist.eof %> " class="left_link"><%= rslist("BigClassName") %> <%rslist.movenext loop rslist.close set rslist=nothing %>   <%=bsortname%> 当前位置：首页 >> 新闻中心 > <%= BigClass %> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if len(BigClass) >0 then sql="select * from okuoo_news where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 else sql="select * from okuoo_news 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 %> <% if rs("FirstImageName")<>"" then response.write "" end if %> "><%=rs("title")%> [<%=FormatDateTime(rs("AddDate"),2)%>] <% rs.movenext if rs.eof then exit for next %> <% response.write "" response.write "" response.write "" response.write "" 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 " " response.write " <% end if rs.close set rs=nothing %>