<%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&""
%><%
do while not rs.eof and howmanyrecs%><%
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
%><%
rs.movenext
howmanyrecs=howmanyrecs+1
loop
rs.close
set rs=nothing
%><%str0=str0&"

"&rs(0)&"

"&rs(1)&"

"&rs(2)&"

"&rs(3)&"

"
%><%

'分页部分
ref=""

ref=ref&"
"
ref=ref&"

"
ref=ref&""
ref=ref&""
ref=ref&"

" ref=ref&"Pages： " & j & " / " & totalpage &"" ref=ref&"

" ref=ref&"" & "9" & " " if whichpage=1 then ref=ref&"7" else ref=ref&"" & "7" & " " end if for counter=1 to totalpage ref=ref&"[" & counter & "]" ref=ref& " " if counter mod 10 = 0 then ref=ref& " " end if next if (whichpage>totalpage or whichpage=totalpage) then ref=ref&"8" else ref=ref&"" & "8" & " " end if ref=ref&"" & ":" & " " Dim fso,f Dim strTitle,strContent,strOut '创建文件系统对象 Set fso=Server.createObject("Scripting.FileSystemObject") Set f=fso.createTextFile(Server.MapPath("list_"&j&".ht |<< << < 1 2 > >> >>| 加入收藏：    | 发送给好友：   责任编辑：admin 上一篇：服务端 VBScript 与 JScript 几个相同特性的写法 下一篇：无 相关文章列表 请文明参与讨论，禁止漫骂攻击。   loading... 网友评论 评论加载中...