登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>ASP教程>>ASP应用>>ASP分页列表生成静态页面的小程序脚本
ASP分页列表生成静态页面的小程序脚本
来源: ‖ 作者: ‖ 点击: ‖ 时间:14-03-20 16:53:19 ‖ 【 】‖ 我要投稿


分页测试
<%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
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论