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

这是ASP分页列表，用于生成静态页面的ASP脚本。
复制代码代码如下所示：

分页测试

strhead = strhead
strhead = strhead分页测试
strhead = strhead
strhead = strhead
%>
<
从新闻中选择*
集= server.createobject（ADODB。记录集）
rs.open sql，Conn，1,1
% < %
rs.pagesize = 2
totalpage = rs.pagecount
关闭
设置=无

J = 1 totalpage
从新闻中选择*
集= server.createobject（ADODB。记录集）
rs.open sql，Conn，1,1

whichpage = J
rs.pagesize = 2
totalpage = rs.pagecount
rs.absolutepage = whichpage
howmanyrecs = 0
% < %
str0 =
str0 = str0
str0 = str0
% < %
做while not rs.eof和howmanyrecs < rs.pagesize
% < %
str0 = str0
Str0=str0 RS (0)
str0 = str0 RS（1）
str0 = str0 RS（2）
str0 = str0 RS（3）
str0 = str0
% < %
移到下一项
howmanyrecs = howmanyrecs + 1
环
关闭
设置=无

% < %

分页部件
REF

REF =
REF =
REF =
REF =
作为ref页面：J / totalpage
REF =
REF =

引用=9
如果whichpage = 1
REF =7
其他的
引用=7
最后如果

反= 1 totalpage
REF ={计数器
REF =
如果计数器mod 10＝0，那么
REF =
最后如果
下一个

如果（whichpage > totalpage或whichpage = totalpage）然后
REF =8
其他的
引用=8
最后如果
引用

模糊FSO
昏暗的strtitle，strcontent，一一
创建文件系统对象
设置FSO = server.createobject（脚本。FileSystemObject ）
集F = fso.createtextfile（服务器。听（list_ ，.html），真的）

写网页的内容
f.writeline strheadstr0ref
f.close
response.write 是产生J页面！
% < %
二%>