<%
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 uup desc,Pubdate desc"
else
sql="select * from News where Online='1' and newsclass='4' order by uup desc,Pubdate desc"
end if
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "
-
"><%=rs("NewsTitle")%>
更新时间：<%=rs("pubdate")%>
<%
rs.movenext
loop
%>
暂无新法速递
" 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
<%
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
%>
