" objRS.movenext if objRS.eof then exit for next response.write"
" end sub %>
留言板 <!--#include file="../../top.asp"-->
<% strsql="select * from 留言板 order by 时间 desc" set objrs=getsqlrecordset(strsql,"../books.mdb","留言板") objrs.pagesize=5 pageno=request("pageno") response.write "
" response.write" [" for i=1 to objrs.pagecount if i=cint(pageno) then response.write " "&i&" |" else response.write " "&i&""&" |" end if next response.write"]
" %>
<% if pageno <> "" then showpage objrs,pageno else showpage objrs,1 end if objrs.close set objrs=nothing objconn.close set objconn=nothing %> <!--显示输入新留言表单-->
set objrs=getrecordset("../books.mdb","留言板") objrs.addnew array("作者","主题","内容","时间"),array(username,title,content,currenttime) objrs.update objrs.close set objrs=nothing objconn.close set objconn=nothing