asp分页生成html的程序脚本代码


答案：这是asp分页列表生成静态页面得asp小程序脚本 
[复制此代码]CODE:

<!--#include file="conn.asp"-->  
<html><head><TITLE>分页测试</TITLE><LINK href=><%strHead=strHead&"<html>"  
strHead=strHead&"<head>"  
strHead=strHead&"<TITLE>分页测试</TITLE>"  
strHead=strHead&"<LINK href=>strHead=strHead&"</head>"  
%>  
<%   
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&"</p>"  
str0=str0&"<table bgcolor=#cecfce align=center border=0 width=800 cellpadding=2 cellspacing=1>"  
%><%   
do while not rs.eof and howmanyrecs<rs.pagesize  
%><%  
str0=str0&"<tr bgcolor=#f7f7f7>"  
str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(0)&"</td>"  
str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(1)&"</td>"  
str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(2)&"</td>"  
str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(3)&"</td>"  
str0=str0&"</tr>"  
%><%  
rs.movenext  
howmanyrecs=howmanyrecs+1  
loop  
rs.close  
set rs=nothing  
%><%str0=str0&"</table>"  
%><%  
'分页部分  
ref=""  
ref=ref&"<br>"  
ref=ref&"<table bgcolor=#cecfce align=center border=0 width=800 cellpadding=0 cellspacing=1> "  
ref=ref&"<tr bgcolor=#f7f7f7>"  
ref=ref&"<td> "  
ref=ref&"<b>Pages： " & j & " / " & totalpage &"</b>"  
ref=ref&"</td>"  
ref=ref&"<td> "  
ref=ref&"<a href=>if whichpage=1 then  
ref=ref&"<FONT face=Webdings>7</FONT>"  
else  
ref=ref&"<a href=>end if  
for counter=1 to totalpage  
ref=ref&"<a href=>ref=ref& " "  
if counter mod 10 = 0 then  
ref=ref& "<br>"  
end if  
next  
if (whichpage>totalpage or whichpage=totalpage) then  
ref=ref&"<FONT face=Webdings>8</FONT>"  
else  
ref=ref&"<a href=>end if  
ref=ref&"<a href=>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&"个页面!<br>"  
%><%  
next%>
上一个：ASP类型网站结合动网论坛会员的方法第1/3页
下一个：ASPWebPack 代码提供下载
更多图片编程知识: