Log In | Register显示留言部分代码 GOODTEXT.ORG留言本制作过程（2）
003Response.Write "<html>" & vbCrlf
Response.Write "<head>" & vbCrlf
Response.Write "<TITLE>GOODTEXT.ORG留言本</TITLE>" & vbCrlf
Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrlf
Response.Write "<META http-equiv=Content-Language content=gb2312>" & vbCrlf
Response.Write "<STYLE type=text/css>" & vbCrlf
Response.Write "BODY TABLE TD {FONT-SIZE: 9pt; COLOR: #842b00; LINE-HEIGHT: 16pt; FONT-FAMILY:
""Tahoma"", ""宋" & vbCrlf
Response.Write "体""; TEXT-DECORATION: none}" & vbCrlf
Response.Write "A {FONT-SIZE: 9pt; COLOR: #842b00; LINE-HEIGHT: 16pt; FONT-FAMILY: ""Tahoma"",
""宋体""; TEXT-" & vbCrlf
Response.Write "DECORATION: none}" & vbCrlf
Response.Write "A:hover {FONT-SIZE: 9pt; COLOR: #0188d2; LINE-HEIGHT: 16pt; FONT-FAMILY:
""Tahoma"", ""宋体""; " & vbCrlf
Response.Write "TEXT-DECORATION: underline}" & vbCrlf
Response.Write "H1 {FONT-SIZE: 9pt; FONT-FAMILY: ""Tahoma"", ""宋体""}" & vbCrlf
Response.Write "span {color: #ff0000}" & vbCrlf
Response.Write "</STYLE>" & vbCrlf
%>
<script LANGUAGE="JavaScript">
function check()
{
if (document.Form1.buser.value=="")
{
alert("请填写您的姓名！")
document.Form1.buser.focus()
document.Form1.buser.select()
return
}
if (document.Form1.bqqmsn.value=="")
{
alert("请留下您的QQ或MSN!")
document.Form1.bqqmsn.focus()
document.Form1.bqqmsn.select()
return
}
if (document.Form1.bemail.value=="")
{
alert("电子邮件不可为空！")
document.Form1.bemail.focus()
document.Form1.bemail.select()
return
}
if (document.Form1.bcontent.value=="")
{
alert("请填写您的留言内容！")
document.Form1.bcontent.focus()
document.Form1.bcontent.select()
return
}
document.Form1.submit()
}
</SCRIPT>
</head>
<BODY>
<% dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
if Request("action")="bookadd" then
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
Response.Write "alert('验证码错误！');"
Response.Write "history.go(-1);"
Response.Write "</SCRIPT>"
else
session("verifycode")=""
set rs=server.createobject("adodb.recordset")
sql="select * from book"
rs.open sql,conn,3,3
rs.addnew
rs("buser")=Request("buser")
rs("bqqmsn")=Request("bqqmsn")
rs("bemail")=Request("bemail")
rs("bcontent")=Request("bcontent")
rs.update
Response.Redirect "index.asp"
End IF
End if
Response.Write vbCrlf
Response.Write "<TABLE height=""100%"" cellSpacing=0 cellPadding=0 width=""100%"" align=center
border=0>" & vbCrlf
Response.Write "<TR>" & vbCrlf
Response.Write "<TD vAlign=""center"" align=""middle"">" & vbCrlf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=500 align=center border=0>" & vbCrlf
Response.Write "<TR>" & vbCrlf
Response.Write "<TD width=17 height=17><IMG height=17 src=""images/co_01.gif"" width=17></TD>"
& vbCrlf
Response.Write "<TD width=316 background=""images/bg01.gif""></TD>" & vbCrlf
Response.Write "<TD width=17 height=17><IMG height=17 src=""images/co_02.gif"" width=17></TD>"
& vbCrlf
Response.Write "</TR>" & vbCrlf
Response.Write "<TR>" & vbCrlf
Response.Write "<TD background=images/bg02.gif></TD>" & vbCrlf
Response.Write "<TD><TABLE width=600 border=0 cellSpacing=0><form name=""form1""
method=""post"" " & vbCrlf
Response.Write "action=""index.asp""> " & vbCrlf
Response.Write " <TR> " & vbCrlf
%>
<TD><H1>认真填写以下留言 | <%if Request("admin")=1 then%><a href="?action=quit">退出管理
</a><%else%><a href="?admin=1">管理留言</a><%end if%></H1>
<div align="right">搜索留言:
<INPUT id=shou name=bookso>
<INPUT type=submit value=搜索 name=Submit3>
</div>
</TD></TR></form>
<TR>
<TD colspan="2" vAlign=top>
<hr noshade size=1>
<%
bookso=Request("bookso")
if bookso="" then
sql="select * from book order by id desc"
else
sql="select * from book where buser like '%"&bookso&"%' or bcontent like '%"&bookso&"%' order
by id DESC "
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF Not rs.eof Then
proCount=rs.recordcount
rs.PageSize=20 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<ul><li>
<B><%=rs("buser")%></B> 在 (<%=rs("bdate")%>)
留言：
<BR><%if rs("bsh")=1 then%><%=rs("bcontent")%><%else%>
<span>请等候管理员审核此留言！</span><%end if%>
<BR><BR>
<span><%if trim(rs("bhcontent"))<>"" then%>回复: <BR>
<%=rs("bhcontent")%><%end if%></span>
</li>
数据库结构设计与链接 GOODTEXT.ORG留言本制作过程（1） (2008-3-27 18:58:58)
验证密码强度的JS（2） (2008-3-26 22:10:0)
验证密码强度的JS（1） (2008-3-26 21:51:11)
ＣＳＳ样式控制网页背景（背景颜色和颜色图片） (2008-3-22 12:44:4)
CSS相对、绝对定位与树状目录实例 (2008-3-16 10:7:22)
CSS布局解决列高度不相同的问题（自适应高度） (2008-3-16 9:56:4)
HTML页面用ＣＳＳ布局#DIV＋ＣＳＳ(DIV＋ＣＳＳ) (2008-3-16 9:16:19)
asp中用图片中文数字验证码的方法 (2008-3-9 9:37:41)
asp分页做成一个函数 可重复调用 (2008-3-9 9:15:50)
使用ODBC数据源&Session对象进行注册验证#ASP＋Access# (2008-3-8 9:36:27)