<% call aspsql() mytype=trim(request("type")) yypage = request("page") if yypage="" then yypage=1 %> <% Set rs = conn.Execute("select * from bconfig") newstitle1=rs("newstitle1") newstitle2=rs("newstitle2") newstitle3=rs("newstitle3") newstitle4=rs("newstitle4") newstitle5=rs("newstitle5") newstitle6=rs("newstitle6") newstitle7=rs("newstitle7") newstitle8=rs("newstitle8") newstitle9=rs("newstitle9") newstitle10=rs("newstitle10") rs.close set rs=nothing %>
您现在的位置是：河南点石律师事务所>点石动态

点石动态

    <% dim typeid,name,colname,totalsoft,Currentpage,totalpages,i softperpage=10 pages = per_page_num set rs=Server.CreateObject("ADODB.RecordSet") if mytype<>"" then sql="select * from News where Online='1' and NewsClass='"&mytype&"' order by Pubdate desc" else sql="select * from News where Online='1' and newsclass='1' order by Pubdate desc" end if rs.open sql,conn,1,3 if rs.eof and rs.bof then response.write "

    暂无点石动态

    " else rs.pagesize=softperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) response.cookies("prodpage") = clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount response.cookies("prodpage") =rs.pagecount end if else currentpage=1 response.cookies("prodpage") =1 end if totpage=rs.pagecount totalsoft=rs.recordcount if currentpage<>1 then if (currentpage-1)*softperpage

  • "><%=rs("NewsTitle")%>

    更新时间：<%=rs("pubdate")%>

    • <% rs.movenext loop %>
<% query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next %> <% if currentpage>1 then if request("page")="" then page=1 else page=request("page")-1 end if%> << <%else%> <%end if%> <% i=1 showye=totalpages if showye>10 then showye=12 end if if request("page")="" then dqpage=1 else if csng(request("page"))>totalpages then dqpage=totalpages else dqpage=request("page") end if end if if dqpage>10 then tianlu=dqpage-7 hangtian=dqpage+4 if hangtian>totalpages then for i=tianlu to totalpages if i=currentpage then %><%=i%> <%else%><%=i%><%end if next else for i=tianlu to hangtian if i=currentpage then %><%=i%> <%else%><%=i%><%end if next end if else for i=1 to showye if i=currentpage then %><%=i%> <%else%><%=i%><%end if next end if %> <% if totalpages>currentpage then if request("page")="" then pageee=2 else pageee=request("page")+1 end if%> >> <%else%> >> <%end if%> <% end if rs.close set rs=nothing %>