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

发布时间：2023-09-22 15:30:40 所属栏目：Asp教程来源：

导读：这是asp分页列表生成静态页面得asp小程序脚本

复制代码代码如下:



<html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></h

这是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&"</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>"

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!