%
strconn="Driver={SQL Server};Description=sqldemo;SERVER=218.30.96.94;UID=cw1a001;PWD=c7d3q2c6;DATABASE=cw1a001_db"
set myconn=server.createobject("adodb.connection")
myconn.open strconn
set rs=server.createobject("adodb.recordset")
rs.open "select count(title) mycount from fzxw",myconn
k=rs("mycount")
rs.close
dim string,p
p=request.querystring("item")
session("nowpage")=p
if session("nowpage")="" then
totalpage=int(k/18)+1 '页数
session("totalnum")=k '总记录数
session("nowpage")=totalpage '当前页数
session("totalpage")=totalpage '总页数
p=totalpage
end if
if session("nowpage")>1 then
item=1
page="index.asp?item="&item
string="第一页"&""
item=session("nowpage")-1
page="index.asp?item="&item
string=string&" "&""&"上一页"
end if
if session("nowpage")<>session("totalpage") then
page="index.asp"
string=string&" "&"最后一页"
if session("totalpage")-session("nowpage")=1 then
page="index.asp"
string=string&" "&"下一页"
else
item=session("nowpage")+1
page="index.asp?item="&item
string=string&" "&"下一页"
end if
end if
dim number1,number2,number3
number1=18*p
number2=18*(p-1)
number3=17
if p=1 then
number1=18-(18*p-k)
end if
dim path(1000),title(1000)
if k<>0 then
rs.open "select * from fzxw",myconn
myarray=rs.getrows()
for i=0 to number3
str1=""
str2=""
if myarray(5,i)<>"" then
str1="["
str2="]"
end if
path(i)="content.asp?num="&myarray(6,i)
title(i)="