您现在的位置是：网站首页> 编程资料编程资料

asp分页生成html的程序脚本代码_应用技巧_

2023-05-25 291人已围观

简介 asp分页生成html的程序脚本代码_应用技巧_

这是asp分页列表生成静态页面得asp小程序脚本

分页测试
<%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&""&rs(0)&""
str0=str0&""&rs(1)&""
str0=str0&""&rs(2)&""
str0=str0&""&rs(3)&""
str0=str0&""
%><%
rs.movenext
howmanyrecs=howmanyrecs+1
loop
rs.close
set rs=nothing
%><%str0=str0&""
%><%

'分页部分
ref=""

ref=ref&"
"
ref=ref&" "
ref=ref&""
ref=ref&" "
ref=ref&"Pages： " & j & " / " & totalpage &""
ref=ref&""
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&".html"),true)

'写入网页内容
f.WriteLine strHead&str0&ref
f.close
response.write "正在生成第"&j&"个页面!
"
%><%
next%>

您可能感兴趣的文章:

上一篇：ASPJPEG综合操作的CLASS类_ASP CLASS类_

下一篇：比较不错的asp单表单字段多条件查询_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

asp分页生成html的程序脚本代码_应用技巧_

相关内容

点击排行

本栏推荐

猜你喜欢