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

编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
这是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%>

Copyright © 2016-2025 www.dzhlxh.cn 金源码 版权所有 Power by

网站模板下载|网络推广|微博营销|seo优化|视频营销|网络营销|微信营销|网站建设|织梦模板|小程序模板