<!--#include file="../adofunctions.asp"-->
<%
'ShowPage子程序负责配制表格颜色及插图，然后显示PageNo参数所指定的 次的所有记录
Sub ShowPage(objRS,PageNo)
'配制表格背景颜色及插图，同时加上 Randomize 使每次均产生不同顺序的图文件
ReDim Fig(objRS.PageSize-1),BG(objRS.Pagesize-1)
Randomize
For I= 0 to objRS.pageSize-1[@more@]

Fig(I)="../img/"&(INT(RND*9)+1)&".gif"
Next
BG(0)="#D9D9FF"
BG(1)="#FFCAEE"
BG(2)="#FFFFCC"
BG(3)="#B9EEB9"
BG(4)="#B9E9FF"
'显示留言并加以格式化
Response.Write"

"
objRS.AbsolutePage=PageNo
For I = 1 To objRS.PageSize
Response.Write""
Response.Write""
Response.Write""
objRS.movenext
if objRS.eof then exit for
next
response.write"

作者："&objRS("作者")&" 主题:"& objRS("主题")&" 时间:"&objRS("时间")&" "&objRS("内容")&"

"
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
%>

---

<!--显示输入新留言表单-->

请在此输入新的留言
作者
主题
内容

<!--#include file="../../bottom.asp"-->

<!----------------------post.asp 文件------------------------->

<!--#include file="../adofunctions.asp"-->
<%
username=request("username")
title=request("title")
content=request("content")
currenttime=now()

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

response.redirect"guestbook.asp"
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7226109/viewspace-841978/，如需转载，请注明出处，否则将追究法律责任。