给万博系统的新闻系统增加分页功能,无需修改数据库,只需改变一个文件,就可以了.
如果将后台的Webediter增加一个插入分页符,那就更完美了.我还没加这个.
本例是在后台录入新闻时,在需要分页的位置插入分页符:{＄html_page＄}就可以了.
代码如下,有详细说明
newsshow.asp
<!--#includefile="siteinfo.asp"-->
<HTML>
<HEAD>
<TITLE><%=sitename%></TITLE>
<METAHTTP-EQUIV="Content-Type"C>
<linkhref="images/CSS.css"type=text/cssrel=stylesheet>
</HEAD>
<bodytopmargin="0">
<tablewidth="780"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdcolspan="3"><!--#includefile="top.asp"--></td>
</tr>
<tr>
<tdwidth="145"align="left"valign="top"><!--#includefile="left.asp"--></td>
<tdalign="left"valign="top"><tablewidth="625"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="17"height="20"></td>
<tdwidth="598"></td>
<tdwidth="10"></td>
</tr>
<tr>
<tdwidth="17"><%idd=trim(request.querystring("id"))
setrsr=server.createobject("adodb.recordset")
sql="select*fromNewswherePutout=trueandid="&idd
rsr.opensql,conn,1,3
ifnotrsr.eofthen
Newcontent=rsr("Newcontent")
Newtitle=rsr("Newtitle")
Putman=rsr("Putman")
kig=rsr("kig")
kig=kig+1
addtime=rsr("addtime")
rsr("kig")=kig
rsr.update
else
response.Write"找不到记录，发生导常错误，请联系管理员！"