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

这是asp分页列表生成静态页面得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&"" 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&" " 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 next 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%>

　　推荐阅读

　　ASP生成随机字符串(数字+大小写字母)的代码

<% 'ASP生成随机字符串(数字+大小写字母)练习 '阿会楠练习，为我所用，非我所想 Function randKey(obj) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 c>>>详细阅读

本文标题：asp分页生成html的程序脚本代码

地址：http://www.17bianji.com/kaifa2/ASP/32387.html

1/2 1