?? admin_guestbook.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%
If Session(SiteSN&"_Admin_Login")<>AdminName&"_"&AdminPass Then
Response.redirect "Admin_Login.asp"
Response.End
End If
dim Action
Action=Request.QueryString("Action")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<link href="style.css" rel="stylesheet" type="text/css">
<title>管理網(wǎng)站信息_<%=WebName & ChannelName%></title>
<style type="text/css">
<!--
.input { font-size: 12px;
border: 1px solid #CCCCCC;
background-color: transparent;
width: 130px;
}
.text { font-size: 12px;
border: 1px solid #CCCCCC;
background-color: transparent;
}
-->
</style>
<script language="javascript">
//**********刪除留言**********
function Del()
{
if(confirm("請確定是否刪除留言，刪除將無法恢復(fù)！"))
return true;
else
return false;
}
</script>
</head>
<body>
<div class="main_title1">
<a href="Admin_Manage.asp">管理首頁</a> | <a href="Admin_Manage.asp?action=ListSite">管理網(wǎng)站信息</a> | <a href="Admin_Manage.asp?action=ShowLog">查看點(diǎn)擊記錄</a> | <a href="Admin_GuestBook.asp" class="t">管理網(wǎng)站留言</a> | <a href="Admin_Manage.asp?action=BatchDelform">批量刪除數(shù)據(jù)</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div>
<div class="mainbar">
<%
select case Action
case "reply"'回復(fù)頁面調(diào)用
call reply
case "Replyy"'回復(fù)調(diào)用
call Replyy
case "del"
call del
case else
call ListSite
end select
%></div><%
sub ListSite
dim MaxPageSize:MaxPageSize=10 '每頁顯示的記錄數(shù)
'分頁信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not Isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if
'普通sql語句
Sql="select * from [Books] order by Books_Id desc"
%>
<div style="text-align:center;">
<div class="cutpage">
<%Wap.showPageInfo "Books","Books_Id","",PageNo,MaxPageSize,""%>
</div>
</div>
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,1
if not rs.eof then
rs.PageSize = MaxPageSize
rs.AbsolutePage = PageNo
dim i
i=0
%>
<table border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr align="center" class="main_title1">
<td width="100">昵稱</td>
<td width="230">時(shí)間</td>
<td width="388">操作管理</td>
</tr>
<%Do While Not rs.EOF and i<MaxPageSize%>
<tr align="center">
<td><% =Rs("Books_Name") %></td>
<td><% =Rs("Books_Time") %></td>
<td><a href='?Action=reply&Id=<%=Rs("Books_Id")%>' style='color:red'>回復(fù)</a>
<a href='?Action=del&Id=<%=Rs("Books_Id")%>' onClick="return Del(this);" style='color:red'>刪除</a>
<font color='red'>IP為：<%=Rs("Books_Ip")%>
</td>
<tr>
<td align="center">內(nèi)容</td>
<td colspan="2"><span style="width:730; word-break:break-all; word-wrap:break-word;">
<% =Rs("Books_Info") %>
</span></td>
</tr>
<%If Rs("Books_Reply")<>"" then%>
<tr>
<td bgcolor="#FDF0F9"><div align="center">回復(fù):</div></td>
<td colspan=2 bgcolor="#FDF0F9"><%=Rs("Books_Reply")%></td>
</tr>
<%End If%>
<tr>
<td height="1" colspan="3" bgcolor="#8cc3de"></td>
</tr>
<%
i=i+1
rs.MoveNext
Loop
else
%>
<tr>
<td height="80" colspan="3" align="center"><B>沒有留言</B></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
<%end sub
sub reply
dim rs
Id=Request.QueryString("Id")
Set Rs=Conn.execute("select * from [Books] where Books_Id="&Id)
If Rs.eof then
Response.Write "<script>alert('非法操作：留言不存在！');this.location.href='Admin_GuestBook.asp';</SCRIPT>"
Response.End
End If
%> <form method="post" Action="?Action=Replyy&Id=<% =Id %>">
<table width="83%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
<tr class="tr2">
<td width="13%" align="center">昵稱：</td>
<td width="87%" colspan="5"><input name="Books_Name" type="text" value="<% =Rs("Books_Name") %>" class="input"></td>
</tr>
<tr class="tr2">
<td align="center">Q Q：</td>
<td colspan="5"><input name="Books_Qq" type="text" value="<% =Rs("Books_Qq") %>" class="input"></td>
</tr>
<tr class="tr2">
<td align="center">郵箱：</td>
<td colspan="5"><input name="Books_Mail" type="text" value="<% =Rs("Books_Mail") %>" class="input"></td>
</tr>
<tr class="tr2">
<td align="center">留言：</td>
<td colspan="5"><textarea name="Books_Info" rows="9" cols="77" class="text"><% =Wap.HTMLCode(Rs("Books_Info"))%>
</textarea>
</td>
</tr>
<tr class="tr2">
<td align="center">回復(fù)：</td>
<td colspan="5"><textarea name="Books_Reply" rows="9" cols="77" class="text"><% =Wap.HTMLCode(Rs("Books_Reply")) %></textarea></td>
</tr>
<tr class="tr2">
<td colspan="6" align="center" class="td"> <input name="submit1" type="submit" value="回復(fù)留言"> <input type="reset" value=" 重新輸入 "></td>
</tr>
</table>
</form>
<%end sub
'回復(fù)調(diào)用
sub Replyy
Id=Request.QueryString("Id")
Sql="update [Books] Set Books_Name='"&Request.form("Books_Name")&"',Books_Qq='"&Request.form("Books_Qq") &"',Books_Mail='"&Request.form("Books_Mail") &"',Books_Info='"& Wap.HTMLEncode(Request.form("Books_Info"))&"',Books_Reply='"& Wap.HTMLEncode(Request.form("Books_Reply")) &"'where Books_Id="& Id &""
Conn.execute(Sql)
Response.Write "<script>alert('回復(fù)成功！');this.location.href='Admin_GuestBook.asp';</SCRIPT>"
end sub
'刪除調(diào)用
sub del
Id=Request.QueryString("Id")
Sql="delete from [Books] where Books_Id="&Id
Conn.execute(Sql)
Response.Write "<script>alert('刪除成功！');this.location.href='Admin_GuestBook.asp';</SCRIPT>"
end sub
%>
<!--#include file="under.asp"-->
<%set Wap=nothing%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -