zoukankan
html css js c++ java
ASP生成.shtml.html,多页
<
!
--
#include file
=
"
conn.asp
"
-->
<
html
><
head
><
TITLE
>
分页测试
</
TITLE
><
LINK href
=
"
inc/style.css
"
type
=
text
/
css rel
=
stylesheet
></
head
>
<
%
dim
strhead,sql,totalpage,j,whichpage,howmanyrecs,str0,ref,counter,yyyy
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>
"
%
>
<
%
yyyy
=
5
sql
=
"
select * from news order by atime desc
"
set
rs
=
server.createObject(
"
ADODB.Recordset
"
)
rs.open sql,conn,
1
,
1
%
><
%
rs.pagesize
=
yyyy
totalpage
=
rs.pagecount
rs.close
set
rs
=
nothing
for
j
=
1
to
totalpage
sql
=
"
select * from news order by atime desc
"
set
rs
=
server.createObject(
"
ADODB.Recordset
"
)
rs.open sql,conn,
1
,
1
whichpage
=
j
rs.pagesize
=
yyyy
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""><a href=
"
&
rs(
"
address
"
)
&
"
>
"
&
rs(
"
name
"
)
&
"
</a></td>
"
str0
=
str0
&
"
<td bgcolor=#f7f7f7 align=""center"">
"
&
rs(
"
atime
"
)
&
"
</td>
"
str0
=
str0
&
"
<td bgcolor=#f7f7f7 align=""center"">
"
&
rs(
"
text
"
)
&
"
</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
%
>
查看全文
相关阅读:
退役划水一
Codeforces 1592F2 Alice and Recoloring 2
AtCoder Regular Contest 108 选做
AtCoder Regular Contest 107 选做
AtCoder Regular Contest 106 选做
AtCoder Regular Contest 105 选做
2021 年铜陵市青少年编程大赛 部分题解
Codeforces 1566G Four Vertices
数据迁移的一般测试步骤
mac常用命令
原文地址:https://www.cnblogs.com/zwl12549/p/863634.html
最新文章
企业微信 之快捷回复项目
MPP(大规模并行处理)架构
「模拟赛20211006」Disastrous Rain
「Gym102759E」Chemistry
「模拟赛20211004」A Fake Man
「UVA12183」Top Secret
「ARC126F」Affine Sort
数学杂谈 #8
「Gym102978B」Bit Operation
「Gym102978A」Ascending Matrix
热门文章
「ABC217H」Snuketoon
P6965_NERRC2016_Binary_Code
CF97E Leaders
全网首个严格证明的双连通图的基本性质
P6255 ICPC2019 WF Dead-End Detector
P4094 TJOI2016/HEOI2016 字符串
撤回骗分: 莫队Ⅴ
王者荣耀 安琪拉 时之奇旅 同人换装
斗破苍穹 雅妃 同人换装
[笔记]git pull vs git pull --rebase
Copyright © 2011-2022 走看看