|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;分页为了版美妙,偶然必要将一编较长的文章分页来显现,这时候只好将文章分屡次存进数据库,极不便利
自己见过量种主动分页代码,感到上不是很幻想
偶的思绪是统计文章的一切行数,按指定行数输入显现内容并天生分页导航
若有不敷的地方看写信告知作者
演示地点:http://mail-1.fz169.net/wh/sys/page/
<%
#######################
程序名:ASP文章主动分页
编写:网海求生者
QQ:54883661E-mail:
wuyingke5155@163.com
#######################
毗连数据库:
onerrorresumenext
dimconn,connstr,dbpath
dbpath=server.mappath("web.mdb")数据库文件名
setconn=server.createobject("adodb.connection")
connstr="driver={microsoftaccessdriver(*.mdb)};dbq="&dbpath&";"
conn.openconnstr
iferr.number0then
response.writeerr.description
err.clear
response.end
endif
subconnclose()
conn.close()
setconn=nothing
endsub
读取数据:
dimrs,sql,conntent,title,id
id=1trim(request("id"))上页传来的ID值,为了调试便利此ID值一时赋为1
setrs=server.createobject("adodb.recordset")
sql="select*fromnewswhereid="&cint(id)
rs.opensql,conn,1,1
ifnot(rs.eofandrs.bof)then
content=rs("content")读取内容
title=rs("title")读取题目
endif
iferr.number0then
response.writeerr.description
err.clear
response.end
endif
rs.close
setrs=nothing
callconnclose()
分页处置部分:
---------------------主代码入手下手--------------------------
dimpage,pagecount,thispage,linenum,allline
constpageline=10每页显现10行
linenum=split(content,"<br>")本例为盘算字符串<br>标志的个数
allline=ubound(linenum)+1全文<br>(换行标志)总数
pagecount=int(alllinepageline)+1盘算总页数
page=request("page")
ifisempty(page)then
thispage=1
else
thispage=cint(page)
endif
response.write"<title>"&title&"</title><b>"&title&"</b><hr>"
fori=0toallline
ifi+1>thispage*pageline-pagelineandi<thispage*pagelinethen
response.writelinenum(i)&"<br>"输入分页后的内容
endif
next
response.writechr(13)&"<hr>"
response.write"<palign=center>统共"&allline&"行"&pagecount&"页每页"&pageline&"行"
fori=1topagecount
ifthispage=ithen
response.writei&""
else
response.write"<ahref=?page="&i&"&id="&id&">"&i&"</a>"输入一切分页链接
endif
next
---------------------主代码停止--------------------------
%>
</p>使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |
|