📄 admin_gb.asp
字号:
<%
'==================================
'=文 件 名：admin_gb.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：网站留言系统管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then
errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
response.End
end if
dim gb_id,page, totalgb,Currentpage,totalpages,kk,rep_poster,rep_content,gb_title,gb_content,gb_poster,rep_id
if request.querystring("gb_id")<>"" then
gb_id=checksql("留言ID",request.querystring("gb_id"),0,8)
end if
if request.querystring("page")<>"" then
page=checksql("留言分页",request.querystring("page"),0,8)
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td class="td_title" align="center">留 言 系 统 管 理</td>
</tr>
<tr class="tablebody">
<td align="center"><a href="admin_gb.asp"><img src="images/guestbook_seek.gif" title="查看留言" border="0"></a></td>
</tr>
</table>
<br>
<%
'==================================
'=功 能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
case "list" '留言列表
call list()
case "checkgb" '审核留言
call checkgb()
case "reply" '回复留言
call reply()
case "editgb" '编辑留言
call editgb()
case "editreply" '编辑留言回复
call editreply()
case "delreply" '删除留言回复
call delreply()
case "delgb" '删除留言
call delgb()
case else
call list()
End Select
'==================================
'=过 程 名：list()
'=功 能：留言列表
'==================================
sub list()
sql="select * from wapls_gb order by gb_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
perpage=cint(perpage)
rs.pagesize=perpage
if trim(request.querystring("page"))<>"" then
currentpage=cint(page)
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalgb=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*perpage<totalgb then
rs.move(currentpage-1)*perpage
end if
end if
if (totalgb mod perpage)=0 then
totalpages=totalgb\perpage
else
totalpages=totalgb\perpage+1
end if
kk=0
do while not rs.eof and kk<perpage
sql="select * from wapls_gb_reply where gb_id="&rs("gb_id")
set rsrep=server.createobject("adodb.recordset")
rsrep.open sql,conn,1,1
%>
<table border="0" cellspacing="1" cellpadding="4" class="tableborder" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr class="tablebody">
<td width="90" align="center" bgcolor="#7497DC"><font color="#ffffff"><b><%=keys(rs("gb_poster"))%></b></font></td>
<td width="84%" style="background-color:#7497DC;color:#ffffff;font-weight:bold;"><%=keys(rs("gb_title"))%></td>
</tr>
<tr class="tablebody">
<td align="center" height="120"><img src="../logo/emot/em<%=utf8(rs("GuestImages"))%>.gif" border="0"></td>
<td width="84%" style="line-height: 150%;word-break:break-all;" height="120" valign="top">留言时间：[<%=rs("gb_date")%>] <%if rs("gb_bm")=1 then%> 留言性质：[<span class="current_font">悄悄话</span>]<%else%> 留言性质：[普通留言]<%end if%> <%if rs("gb_passed")=1 then%>留言状态：[<span class="current_font">等待审核</span>]<%else%>留言状态：[通过审核]<%end if%><br>
留言地址：[<%=rs("gb_posterip")%>] 联系方式：<%if rs("gb_posteremail")<>"" then%><a href="mailto:<%=rs("gb_posteremail")%>" target="_blank"><img src="images/email.gif" alt="<%=rs("gb_posteremail")%>" border="0"></a> <%end if%>
<%if rs("gb_posterhome")<>"" then%><a href="<%=rs("gb_posterhome")%>" target="_blank"><img src="images/homepage.gif" alt="<%=rs("gb_posterhome")%>" border="0"></a> <%end if%>
<%if rs("gb_posterqq")<>"" then%><a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("gb_posterqq")%>&Site=QQ&Menu=yes" target="_blank"><img src="images/oicq.gif" alt="qq:<%=rs("gb_posterqq")%>" border="0" ></a><%end if%>
<%if rs("gb_posteremail")="" and rs("gb_posterhome")="" and rs("gb_posterqq")="" then%><span class="disable_font">此人太懒，没留下联系方式……</span><%end if%>
<%if DateDiff("d",rs("gb_date"),now())<1 then%><img src="images/new.gif" border="0"><%end if %><br>
留言内容：<br>
<div style="padding:10px,20px;10px;20px;"><font color="#228822"><%=keys(rs("gb_content"))%></font></div></td>
</tr>
<tr class="tablebody">
<td align="center">回 复 内 容</td>
<td style="padding:10px,10px;10px;10px;">
<%
dim k
k=0
do while not rsrep.eof
k=k+1
%>
<fieldset>
<legend>回复内容 [<%=rsrep("rep_poster")%> <%=rsrep("rep_date")%>]<button onClick="window.location='?action=editreply&id=<%=rsrep("rep_id")%>'">编辑回复</button><button onclick="{if(confirm('您再次确定要删除此条回复吗?\n\n注意：删除后不可恢复！')){window.location='?action=delreply&id=<%=rsrep("rep_id")%>';}return false;}">删除回复</button></legend>
<table width="100%" border="0">
<tr class="tablebody">
<td style="line-height: 150%;word-break:break-all;height:50px;"><%=ChangeEmot(rsrep("rep_content"))%></td>
</tr>
</table>
</fieldset>
<br>
<%
rsrep.movenext
loop
if rsrep.eof and rsrep.bof then
response.write"<span class='disable_font'>暂时没有回复。</span>"
end if
%>
</td>
</tr>
<tr class="tablebody">
<td align="center">管 理</td>
<td>
<%if rs("gb_passed")=1 then%>
<button onClick="window.location='?action=checkgb&id=<%=rs("gb_id")%>'">审核留言</button>
<%else%>
<button onClick="window.location='?action=checkgb&id=<%=rs("gb_id")%>'" disabled>审核留言</button>
<%end if%>
<%if rsrep.eof and rsrep.bof then%>
<button onClick="window.location='?action=reply&gb_id=<%=rs("gb_id")%>'">回复留言</button>
<%else%>
<button onClick="window.location='?action=reply&gb_id=<%=rs("gb_id")%>'" disabled>回复留言</button>
<%end if%>
<button onClick="window.location='?action=editgb&id=<%=rs("gb_id")%>&page=<%=currentpage%>'">编辑留言</button>
<button onclick="{if(confirm('您再次确定要删除『<%=rs("gb_title")%>』这条留言吗?\n\n注意：删除后不可恢复！删除后请即时更新统计信息。')){window.location='?action=delgb&id=<%=rs("gb_id")%>';}return false;}">删除留言</button>
</td>
</tr>
</table>
<br>
<%
rsrep.close
set rsrep=nothing
kk=kk+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td valign="center" colspan="2" align="center" height="70" class="disable_font"> 暂时没有留言！</td>
</tr>
</table>
<br>
<%
end if
end if
rs.close
set rs=nothing
if totalgb>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="admin_gb.asp?cat_id=<%=request("cat_id")%>">
<tr class="tablebody">
<td align="right"><%showpage totalgb,perpage,"admin_gb.asp?"%></td>
</tr>
</form>
</table>
<%
end if
end sub
'==================================
'=过 程 名：checkgb()
'=功 能：审核留言
'==================================
sub checkgb()
gb_id=checksql("等待审核的留言ID",request.querystring("id"),0,8)
sql="update wapls_gb set gb_passed=0 where gb_id="&gb_id
conn.execute(sql)
closedatabase
response.write "<script>alert('此留言通过审核');location.href='admin_gb.asp';</script>"
end sub
'==================================
'=过 程 名：reply()
'=功 能：回复留言
'==================================
sub reply()
If Request.form("newrep") = "true" Then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write="禁止远程提交！"
response.end
end if
gb_id=checksql("留言ID",request.form("gb_id"),0,8)
rep_poster=checksql("回复者姓名",request.form("rep_poster"),1,20)
rep_content=checksql("回复内容",request.form("content"),1,0)
rep_content=replace(rep_content,replaceurl,"")
sql="select * from wapls_gb_reply where gb_id="&gb_id
set rsrep=server.createobject("adodb.recordset")
rsrep.open sql,conn,1,3
rsrep.addnew
rsrep("rep_poster")=rep_poster
rsrep("rep_content")=rep_content
rsrep("gb_id")=gb_id
rsrep("rep_date")=now()
rsrep("rep_issuper")=1
rsrep.update
rsrep.close
set rsrep=nothing
Response.Write " <script> window.alert('您已经成功提交回复留言信息。。。。。。\n\n "&webname&" "&now()&"'); location.href='admin_gb.asp'</script>"
Response.End
end if
sql="select * from wapls_gb where gb_id=" & gb_id & ""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" align="center" class="tableborder" align="center">
<tbody>
<tr class="tablebody">
<td class="td_title" align="center">留 言 主 题</td>
</tr>
<tr class="tablebody">
<td>
<br>
<table cellspacing=0 width="98%" align="center" border="0">
<tbody>
<%
sql="select * from wapls_gb_reply where gb_id="&rs("gb_id")
set rsrep=server.createobject("adodb.recordset")
rsrep.open sql,conn,1,1
%>
<tr class="tablebody">
<td valign="center" colspan="2" style="word-break:break-all">
<fieldset>
<legend>留言人：[<%=rs("gb_poster")%>] 主题：[<%=rs("gb_title")%>]</legend>
<p class="suojin"><%=rs("gb_content")%> <span class="disable_font">[留言时间：<%=rs("gb_date")%> 留言编号：(<%=rs("gb_id")%>)]</span></p>
</fieldset>
<br>
<%
do while not rsrep.eof
%>
<fieldset>
<legend><%=rsrep("rep_poster")%> 回复</legend>
<p><%=ChangeEmot(rsrep("rep_content"))%><span class="disable_font">[回复时间：<%=rsrep("rep_date")%>]</span><br><br></p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -