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


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