ITPub博客

首页 > 应用开发 > IT综合 > asp留言板

asp留言板

原创 IT综合 作者:kangqiao182 时间:2006-06-11 11:37:44 0 删除 编辑
<!--#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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    18
  • 访问量
    491870