'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"-->
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
%>
<!--显示输入新留言表单-->
请在此输入新的留言 | |
作者 | |
主题 | |
内容 | |
<!--#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/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/7226109/viewspace-841978/