给万博系统的新闻系统增加分页功能[配有详细说

给万博系统的新闻系统增加分页功能,无需修改数据库,只需改变一个文件,就可以了.
如果将后台的Webediter增加一个插入分页符,那就更完美了.我还没加这个.

本例是在后台录入新闻时,在需要分页的位置插入分页符: {$html_page$} 就可以了.

代码如下,有详细说明
newsshow.asp

<!--#include file="siteinfo.asp"-->
<HTML>
<HEAD>
<TITLE><%=sitename%></TITLE>
<META HTTP-EQUIV="Content-Type" C>
<link href="images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<body  topmargin="0">
<table width="780" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3"><!--#include file="top.asp"--></td>
  </tr>
  <tr>
    <td width="145" align="left" valign="top"><!--#include file="left.asp" --></td>
    <td align="left" valign="top" ><table width="625"  border="0" cellspacing="0" cellpadding="0">

        <tr>
          <td width="17" height="20"> </td>
          <td width="598"> </td>
          <td width="10"> </td>
        </tr>
        <tr >
          <td width="17"><% idd=trim(request.querystring("id"))
             set rsr=server.createobject("adodb.recordset")
             sql="select * from News where  Putout=true and id="&idd
             rsr.open sql,conn,1,3
    if not rsr.eof then

    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"找不到记录,发生导常错误,请联系管理员!"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3064.html