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

时间:2022-02-09 12:21:41

代码如下:


<!--#include file="conn.html">asp"-->  
<html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head>  
<%strHead=strHead&"<html>"  
strHead=strHead&"<head>"  
strHead=strHead&"<TITLE>分页测试</TITLE>"  
strHead=strHead&"<LINK href=""inc/style.css"" type=text/css rel=stylesheet>"  
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=list_1.html"&">" & "<FONT face=Webdings>9</FONT>" & "</a> "  
if whichpage=1 then  
ref=ref&"<FONT face=Webdings>7</FONT>"  
else  
ref=ref&"<a href=list_"&j-1&".html"&">" & "<FONT face=Webdings>7</FONT>" & "</a> "  
end if  

for counter=1 to totalpage  
ref=ref&"<a href=list_"&counter&".html"&">[" & counter & "]</a>"  
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=list_"&j+1&".html"&">" & "<FONT face=Webdings>8</FONT>" & "</a> "  
end if  
ref=ref&"<a href=list_"&totalpage&".html"&">" & "<FONT face=Webdings>:</FONT>" & "</a> "  

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%>