<% ClassID=Trim(Request.QueryString("ClassID")) %> <% set SEORs=Conn.execute("select * from SEO where ID=1") %> 技术支持-<%=SEORs("Title")%> " name="description"> " name="keywords"> "> "><% SEORs.close set SEORs=nothing %> <% If FuDongQQ=1 Then %> <% End If %>

技术支持

    <% set Ars=server.CreateObject("adodb.recordset") Asql="select * from BigClass_Two order by Px desc, BigClassID asc" Ars.open Asql,conn,1,2 for j=1 to Ars.recordcount if Ars.eof then exit FOR %> int(classid) then %><% Else %> class="on"<% End If %>>" title="<%= Ars("BigClassName") %>"><%= Ars("BigClassName") %> <% Ars.movenext if Ars.eof then exit FOR next Ars.close set Ars=nothing %>

<% If ClassID="" Then %> 技术支持 您的位置：首页技术支持 <% Else %> <% set BigClass_Rs=server.CreateObject("adodb.recordset") BigClass_Sql="select top 1 * from BigClass_Two where BigClassID="&ClassID&" order by BigClassID" BigClass_Rs.open BigClass_Sql,conn,1,2 %> <%= BigClass_Rs("BigClassName") %> 您的位置：首页技术支持<%= BigClass_Rs("BigClassName") %> <% BigClass_Rs.close Set BigClass_Rs=nothing %> <% End If %>

    <% set rs=server.CreateObject("adodb.recordset") if classid="" then sql="select * from [News_Two] where Fb=true order by zd asc, tj asc, px desc, ID desc" else if not IsNumeric(classid) then response.Redirect("index.asp") response.End() else sql="select * from [News_Two] where Fb=true and ClassID="&classid&" order by zd asc, tj asc, px desc, ID desc" End If end if rs.open sql,conn,1,2 if rs.bof and rs.eof then response.Write("没有相关信息!!!") PageScript="ML" else '分页的实现 listnum=20 '每页显示20条纪录 Rs.pagesize=listnum pageMax=rs.pagecount listCount=rs.recordcount page=Request("page") if (page-pageMax) > 0 then page=pageMax elseif page = "" or page < 1 then page = 1 end if rs.absolutepage=page '编号的实现 j=listCount j=j-(page-1)*listnum i=0 nn=request("page") if nn="" then n=0 else nn=nn-1 n=listnum*nn end if do while not rs.eof and i
  • " title="<%= Rs("title") %>" class="title"><%= Rs("title") %>  (浏览:<%=rs("Hits")%>次)[<%= FormatTime(Rs("AddDate"),2)%>]
    • <% rs.movenext i=i+1 j=j-1 loop end if %>
<% rs.close set rs=nothing %>