作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:34:08 阅读 我要评论

这是asp分页列表生成静态页面得asp小程序脚本 复制代码 代码如下:<!--#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 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&"<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 strHead&str0&ref f.close response.write "正在生成第"&j&"个页面!<br>" %><% 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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)