這是asp分頁(yè)列表生成靜態(tài)頁(yè)面得asp小程序腳本
復(fù)制代碼 代碼如下:
!--#include file="conn.asp"-->
html>head>TITLE>分頁(yè)測(cè)試/TITLE>LINK href="inc/style.css" type=text/css rel=stylesheet>/head>
%strHead=strHead"html>"
strHead=strHead"head>"
strHead=strHead"TITLE>分頁(yè)測(cè)試/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 howmanyrecsrs.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>"
%>%
'分頁(yè)部分
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
'創(chuàng)建文件系統(tǒng)對(duì)象
Set fso=Server.createObject("Scripting.FileSystemObject")
Set f=fso.createTextFile(Server.MapPath("list_"j".html"),true)
'寫入網(wǎng)頁(yè)內(nèi)容
f.WriteLine strHeadstr0ref
f.close
response.write "正在生成第"j"個(gè)頁(yè)面!br>"
%>%
next%>
您可能感興趣的文章:- IIS6 中"ASP 0201 錯(cuò)誤 無(wú)效的默認(rèn)腳本語(yǔ)言" 的解決方法
- 使用ASP控制指定站點(diǎn)解析腳本語(yǔ)言函數(shù)
- 用InstallShield打包ASP程序的腳本
- 隱藏修改文件時(shí)間和文件屬性的ASP腳本
- ASP.NET調(diào)用javascript腳本的常見(jiàn)方法小結(jié)
- 從一個(gè)網(wǎng)站扒下的asp生成靜態(tài)頁(yè)面的代碼 腳本之家特供版
- iis、apache與nginx禁止目錄執(zhí)行asp、php腳本的實(shí)現(xiàn)方法
- ASP上傳漏洞之利用CHR(0)繞過(guò)擴(kuò)展名檢測(cè)腳本
- ASP中Server.Execute和Execute實(shí)現(xiàn)動(dòng)態(tài)包含(include)腳本的區(qū)別
- ASP.NET中后臺(tái)注冊(cè)js腳本使用的方法對(duì)比
- ASP程序中常用的腳本語(yǔ)言