ASP生成.shtml.html,多页

dim strhead,sql,totalpage,j,whichpage,howmanyrecs,str0,ref,counter,yyyy

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

yyyy=5

sql="select * from news order by atime desc"

set rs=server.createObject("ADODB.Recordset")

rs.open sql,conn,1,1

%><%

rs.pagesize=yyyy

totalpage=rs.pagecount

rs.close

set rs=nothing

for j=1 to totalpage

sql="select * from news order by atime desc"

set rs=server.createObject("ADODB.Recordset")

rs.open sql,conn,1,1

whichpage=j

rs.pagesize=yyyy

totalpage=rs.pagecount

rs.absolutepage=whichpage

howmanyrecs=0

%><%

str0=""

str0=str0&""

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""><a href="&rs("address")&">"&rs("name")&"</a></td>"

str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs("atime")&"</td>"

str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs("text")&"</td>"

str0=str0&"</tr>"

%><%

rs.movenext

howmanyrecs=howmanyrecs+1

loop

rs.close

set rs=nothing

%><%str0=str0&"</table>"

%><%

'分页部分

ref=""

ref=ref&" "

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&"Pages： " & j & " / " & totalpage &""

ref=ref&"</td>"

ref=ref&"<td> "

ref=ref&"<a href=list_1.html"&">" & "9" & "</a> "

if whichpage=1 then

ref=ref&"7"

else

ref=ref&"<a href=list_"&j-1&".html"&">" & "7" & "</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& " "

end if

if (whichpage>totalpage or whichpage=totalpage) then

ref=ref&"8"

else

ref=ref&"<a href=list_"&j+1&".html"&">" & "8" & "</a> "

end if

ref=ref&"<a href=list_"&totalpage&".html"&">" & ":" & "</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&"个页面! "

%><%

next%>