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

!--#include file="conn.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 howmanyrecsrs.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 strHeadstr0ref 
f.close 
response.write "正在生成第"j"个页面!br>" 
%>% 
next%>