ASP文章自动分页

绝代码农

<%
’#######################
’程序名：ASP文章自动分页
’编写：网海求生者
’ Q Q：54883661 E-mail：
’ wuyingke5155@163.com
’#######################

’连接数据库：
on error resume next
dim conn,connstr,dbpath
dbpath=server.mappath("web.mdb") ’数据库文件名
set conn=server.createobject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&dbpath&";"
conn.open connstr
if err.number<>0 then
response.write err.description
err.clear
response.end
end if
sub connclose()
conn.close()
set conn=nothing
end sub

’读取数据：
dim rs,sql,conntent,title,id
id=1’trim(request("id")) ’上页传来的ID值，为了调试方便此ID值临时赋为1
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&cint(id)
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
content=rs("content") ’读取内容
title=rs("title") ’读取标题
end if
if err.number<>0 then
response.write err.description
err.clear
response.end
end if
rs.close
set rs=nothing
call connclose()

’分页处理部分：

’---------------------主代码开始--------------------------

dim page,pagecount,thispage,linenum,allline

const pageline=10 ’每页显示10行
linenum=split(content,"
") ’本例为计算字符串
标记的个数
allline=ubound(linenum)+1 ’全文
(换行标记)总数
pagecount=int(allline/pageline)+1 ’计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
response.write ""&title&""&title&""
for i=0 to allline
if i+1>thispage*pageline-pageline and i response.write linenum(i) &"
" ’输出分页后的内容
end if
next
response.write chr(13)&" "
response.write "总共"&allline&"行 "&pagecount&"页每页"&pageline&"行 "
for i=1 to pagecount
if thispage=i then
response.write i & " "
else
response.write ""&i&" " ’输出所有分页链接
end if
next
’---------------------主代码结束--------------------------
%>

[R语言] ASP文章自动分页

相关帖子

Linux输入输出重定向详细使用说明

详解Linux中的cat文本输出命令用法

linux命令每天必学(15)之tail 命令

详解Linux中输出文件内容的rev与tac命令使用

使用awk输出文本中的字段和列的方法

Swift字符串操作-持续更新-2022

利用logsave如何将命令输出保存起来

了解下Foundation 表格

了解下Foundation 按钮

开机出现reboot and select修复方法

绝代码农 LV4