asp留言板

<!--#include file="../adofunctions.asp"--&gt
'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("作者")&" 主题:"& objRS("主题")&" 时间:"&objRS("时间")&" "&objRS("内容")&"

"
end sub
%>


留言板
<!--#include file="../../top.asp"--&gt


strsql="select * from 留言板 order by 时间 desc"
set objrs=getsqlrecordset(strsql,"../books.mdb","留言板")
objrs.pagesize=5
pageno=request("pageno")
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
%>

---

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

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

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

<!----------------------post.asp 文件-------------------------&gt

<!--#include file="../adofunctions.asp"--&gt
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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/7226109/viewspace-841978/