asp分页生成html的程序脚本代码 这是asp分页列表生成静态页面得asp小程序脚本 复制代码 代码如下:
"&rs(0)&" | " str0=str0&""&rs(1)&" | " str0=str0&""&rs(2)&" | " str0=str0&""&rs(3)&" | " str0=str0&"
" ref=ref&"Pages: " & j & " / " & totalpage &"" ref=ref&" | " ref=ref&" " ref=ref&"" & "9" & " " if whichpage=1 then ref=ref&"7" else ref=ref&"" & "7" & " " end if for counter=1 to totalpage ref=ref&"[" & counter & "]" ref=ref& " " if counter mod 10 = 0 then ref=ref& " " end if next if (whichpage>totalpage or whichpage=totalpage) then ref=ref&"8" else ref=ref&"" & "8" & " " end if ref=ref&"" & ":" & " " 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%> |