📄 guestbook.asp
字号:
<% Server.ScriptTimeOut=5000 %>
<!--#include file="database/conn.asp" -->
<script language="javascript">
function login( ){
if(document.form1.username.value==""||document.form1.password.value==""){
alert("用户名或密码不能为空!");
document.form1.username.focus();
return false;
end if
}
}
</script>
<%
'获取验证代码
Function GetValidateCode()
Randomize Timer
GetValidateCode=Left(Int(Rnd*9998)+1000,4)
If Len(GetValidateCode)>4 Then
GetValidateCode=Len(GetValidateCode&9999,4)
End If
End Function
'自定义srtleach函数用于过滤非法字符函数
function strleach(str)
dim tempstr
if str="" then exit function
tempstr=replace(str,chr(34),"")' "
tempstr=replace(tempstr,chr(39),"")' '
tempstr=replace(tempstr,chr(60),"")' <
tempstr=replace(tempstr,chr(62),"")' >
tempstr=replace(tempstr,chr(37),"")' %
tempstr=replace(tempstr,chr(38),"")' &
tempstr=replace(tempstr,chr(40),"")' (
tempstr=replace(tempstr,chr(41),"")' )
tempstr=replace(tempstr,chr(59),"")' ;
tempstr=replace(tempstr,chr(43),"")' +
tempstr=replace(tempstr,chr(45),"")' -
tempstr=replace(tempstr,chr(91),"")' [
tempstr=replace(tempstr,chr(93),"")' ]
tempstr=replace(tempstr,chr(123),"")' {
tempstr=replace(tempstr,chr(125),"")' }
strleach=tempstr
end function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><style type="text/css">
<!--
body{
background-color: #dddddd;
color:#757575;
margin:0 auto;
padding:0;
}
#container{
width:620px;
height:auto;
margin:5px 5px;
background:#fff;
padding:0;
border:1px solid #ccc;
}
.header{20:48 2008-3-12
margin:10px;
background:#5B00ff;
height:60px;
color:#ffff00;
padding-left:10px;
padding-top:10px;
}
.nav{
margin:10px;
border:1px dashed #ccc;
color:#ccc;
padding-left:10px;
}
.inner{
margin:10px;
border:1px dashed #ccc;
padding-left:10px;
padding-right:10px;
}
.innercontent{
margin:10px 0;
border:4px solid #eeeeee;
}
a{
color:#757575;
}
a:hover{
color:#414141;
}
#fontcolor{
color:#414141;
}
span{
color:#53BDE7;
}
-->
</style></HEAD>
<BODY>
<div id="container">
<%op=request.querystring("op")
if op="" then op="index"
%>
<% select case op %>
<% case "index" %>
<div class="header">
<h2>欢迎流言！！ 积极参与交流！！</h2>
</div>
<div class="nav">
<% if session("admin_name")<>"" then %>
<a href="?op=index">返回</a> |
<a href="?op=login">管理</a>
<%end if%>
</div>
<div class="inner">
<form name="form2" id="form" method="post" action="?op=add" >
<input type="text" id="username" name="username" ></input>**请输入您的姓名<br/>
<textarea id="content" name="content" rows="5" cols="50"></textarea>**请输入您留言的内容<br />
<%ValidateCode=GetValidateCode()'将获取的验证码赋值给ValidateCode%>
<input type="hidden" name="ValidateCode" value="<%=ValidateCode%>">
验证码:<input type="text" name="ValidateCodeInput" value="" size="5" maxlength="4">
<%response.write("<span style='background:#ccc;font-size:16px;text-decoration:line-through;'>"&ValidateCode&"</span> ")%>
<input type="submit" name="submit" id="searchsubmit" value="提交" /><br />
<%
page=request("page")
if page="" then page=0
cate=10
set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook order by id desc"
rs.open sql,conn,1,1
rs.move page*cate
do while not rs.eof
response.write("<div class='innercontent'>")
response.write("<span>"&rs("guestname")&"</span>留言:<br />----------- "&rs("content")&"<br />")
response.write("<span>回复:"&rs("reply")&"</span><br /></div>")
i=i+1
if i=cate then exit do
rs.movenext
loop
response.write("<div align='right'>总页数:"&int(rs.recordcount/cate+1)&"页,当前页:"&page+1&" ")
response.write("<a href='?op=index&page=0' title='第一页'>"&"第一页</a> ")
if not page=0 then
response.write("<a href='?op=index&page="&page-1&"' title='上一页'>"&"上一页</a> ")
else
response.write("上一页 ")
end if
if not rs.bof then
response.write("<a href='?op=index&page="&page+1&"' title='下一页'>下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href='?op=index&page="&int(rs.recordcount/cate)&"' title='最后一页'>最后一页</a> </div>")
rs.close
set rs=nothing
%>
</div>
<% case "login" %>
<div class="header">
<h2>简单留言本管理登录</h2>
<h4>简单留言本副标题,请修改</h4>
</div>
<div class="nav">
<a href="?op=index">主页</a> |
<a href="?op=login">管理</a>
</div>
<div class="inner">
<form name="form1" id="form" method="post" action="?op=loginok" onsubmit="return login()">
<input type="text" id="adminname" name="adminname" ></input>*用户名<br/>
<input type="password" id="password" name="password" ></input>*密 码<br />
<input type="submit" name="submit" id="searchsubmit" value="提交" />
</div>
<% case "loginok" %>
<% dim ss
ss=request.form("adminname")
set rs=server.CreateObject("adodb.Recordset")
sql="select * from admin where admin='"&ss&"'"
rs.open sql,conn,1,1
if request.form("adminname")="" or request.form("password")="" then
response.write"<script>alert('用户名或者密码不能为空!');location.replace('?op=login')</script>"
else if not rs.eof then
session("admin_name")=rs("admin")
response.write"<script>alert('登录成功,谢谢!');location.replace('?op=admin')</script>"
else
response.write"<script>alert('用户名或者密码错误!');location.replace('?op=login')</script>"
end if
end if
%>
<% case "logout" %>
<%
session("adminname")=""
response.write"<script>alert('成功退出,谢谢!');location.replace('?op=index')</script>"
%>
<% case "admin" %>
<div class="header">
<h2>留言本管理后台</h2>
</div>
<div class="nav">
<a href="?op=admin">管理</a> |
<% if session("admin_name")<>"" then %>
<a href="?op=logout">退出</a>
</div>
<%end if%>
<div class="inner">
<%
page=request("page")
if page="" then page=0
cate=5
if session("admin_name")<>"" then
set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook order by id desc"
rs.open sql,conn,1,1
rs.move page*cate
do while not rs.eof
response.Write("时间"&rs("riqi")&"</br>")
response.write("<span> 用户"&rs("guestname")&"</span>留言:<br />--------------"&rs("content")&"<br />")
response.write("回复内容:<span>"&rs("reply")&"</span><br />")
response.write("<a href=?op=admin&edit=reply&id="&rs("id")&">回复|编辑</a> | <a href=?op=admin&edit=delete&id="&rs("id")&">删除</a><hr>")
i=i+1
if i=cate then exit do
rs.movenext
loop
response.write("<div align='right'>总页数:"&int(rs.recordcount/cate+1)&"页,当前页:"&page+1&" ")
response.write("<a href='?op=admin&page=0' title='第一页'>"&"第一页</a> ")
if not page=0 then
response.write("<a href='?op=admin&page="&page-1&"' title='上一页'>"&"上一页</a> ")
else
response.write("上一页 ")
end if
if not rs.bof then
response.write("<a href='?op=admin&page="&page+1&"' title='下一页'>下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href='?op=admin&page="&int(rs.recordcount/cate)&"' title='最后一页'>最后一页</a> </div>")
rs.close
set rs=nothing
end if
%>
<% if(request.querystring("edit")="reply") then
set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook where id="+request.querystring("id")
rs.open sql,conn,1,3
%>
<form name="form3" id="form" method="post" action="?op=editreply&id=<%response.write(request.querystring("id"))%>">
<input type="text" id="username" name="username" value=<%=rs("guestname")%>></input>*请输入留言者姓名<br />
<textarea id="content" name="content" rows="5" cols="50"><%=rs("content")%></textarea>*请输入留言内容<br />
<textarea id="reply" name="reply" rows="5" cols="50"> <%=rs("reply")%></textarea>*请输入回复内容<br />
<input type="submit" name="submit" id="searchsubmit" value="提交" />
</form>
<%end if%>
<%
if(request.querystring("edit")="delete") then
set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook where id="+request.querystring("id")
rs.open sql,conn,1,3
rs.delete
rs.update
response.write"<script>alert('删除留言成功!');location.replace('?op=admin')</script>"
rs.close
set rs=nothing
response.redirect("?op=admin")
end if
%>
</div>
<%case "editreply"%>
<% set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook where id="+request.querystring("id")
request.querystring("id")
rs.open sql,conn,1,3
rs("guestname")=request.form("guestname")
rs("content")=request.form("content")
rs("reply")=request.form("reply")
rs("riqi")=now()
rs.update
response.write"<script>alert('回复或修改留言成功!');location.replace('?op=admin')</script>"
rs.close
set rs=nothing
response.redirect("?op=admin")
%>
<%case "add"%>
<%
set rs=server.CreateObject("adodb.Recordset")
sql="select * from guestbook"
rs.open sql,conn,1,3
if request.form("ValidateCode")<>request.form("ValidateCodeInput") then
response.write("<script>alert('验证码错误!');location.replace('?op=index')</script>")
response.end()
end if
if request.form("username")=""or request.form("content")="" then
response.write("<script>alert('姓名 ,留言内容不能为空!');location.replace('?op=index')</script>")
response.end()
else
rs.addnew
rs("guestname")=Strleach(request.form("username"))
rs("content")=Strleach(request.form("content"))
rs("riqi")=now()
rs.update
response.write"<script>alert('留言成功,谢谢!');location.replace('?op=index')</script>"
end if
%>
<% case default %>
<%response.redirect("?op=index")%>
<% end select %>
</div>
</BODY>
</HTML>
<%
On Error Resume Next
Conn.Close
Set Conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -