|
|
|
<%
response.expires=0
set rs=server.createobject("adodb.recordset")
sql="select * from sang"
rs.open sql,conn,1
dim MaxPerPage
MaxPerPage=12
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
if not rs.eof then
i=0
do while not rs.eof
%>
• 深圳特区国税办税指南
• 深圳特区地税办税指南
• 有限公司工商注册指南
|
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
共10条新闻 页次:1/1 |
<%
rs.close
conn.close
%> |
|
|
|
电话：（0755）83734916、83734926、83734929 | 传真：（0755）82966576 |
|
|
地址：深圳市福田区滨河大道5022号联合广场A座20楼2011室 邮编：518033
Copyright(c) 2004-2006 CXKJS.COM All Rights Reserved |
|
|
|
