<%strHead=strHead&""
strHead=strHead&""
strHead=strHead&"
strHead=strHead&""
strHead=strHead&""
%>
<%
sql="select * from news"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1
%><%
rs.pagesize=2
totalpage=rs.pagecount
rs.close
set rs=nothing
for j=1 to totalpage
sql="select * from news"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1
whichpage=j
rs.pagesize=2
totalpage=rs.pagecount
rs.absolutepage=whichpage
howmanyrecs=0
%><%
str0=""
str0=str0&"
str0=str0&"
"&rs(0)&" | ""&rs(1)&" | ""&rs(2)&" | ""&rs(3)&" | "
%><%
'分页部分
ref=""
ref=ref&"
"
ref=ref&"
" ref=ref&"Pages: " & j & " / " & totalpage &"" ref=ref&" | " "
ref=ref&"" & "9" & " " for counter=1 to totalpage if (whichpage>totalpage or whichpage=totalpage) then Dim fso,f 相关文章列表 请文明参与讨论,禁止漫骂攻击。
网友评论 |