📄 moregb.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="Session.asp"-->
<%
X_Menu=Request("Menu")
X_Id=Request("id")
If X_Id<>"" and X_Menu="E" or X_Menu="E_Re" Then
Set R_GB=Conn.Execute("Select * From [T_GBook] Where G_Id="&int(X_Id)&" ")
X_G_Con=R_GB("G_Con")
X_G_Re=R_GB("G_Re")
End If
'发布系统公告数据的录入
If X_Menu="add" Then
Conn.Execute("Insert into [T_GBook] (G_Xhao,G_Con) values ('none','"&Server.HTMLEncode(Request("X_G_Con"))&"') ")
Response.write"<script language='javascript'>alert(""公告发布成功！"");location.href=""Gbook.asp"";</script>"
Response.End
End If
'编辑用户留言数据后录入数据库
If X_Menu="Re_E" Then
Conn.Execute("Update [T_GBook] set G_Con='"&Server.HTMLEncode(Request("X_G_Con"))&"' Where G_Id="&int(X_id)&" ")
Response.write"<script language='javascript'>alert(""编辑留言成功！"");location.href=""Gbook.asp"";</script>"
Response.End
End If
'回复数据录入数据库
If X_Menu="Re_S" Then
Conn.Execute("Update [T_GBook] set G_Re='"&Server.HTMLEncode(Request("X_G_Con"))&"',G_RTime='"&now()&"' Where G_Id="&int(X_id)&" ")
Response.write"<script language='javascript'>alert(""回复留言成功！"");location.href=""Gbook.asp"";</script>"
Response.End
End If
'编辑回复留言数据后录入数据库
If X_Menu="E_Re_S" Then
Conn.Execute("Update [T_GBook] set G_Re='"&Server.HTMLEncode(Request("X_G_Con"))&"' Where G_Id="&int(X_id)&" ")
Response.write"<script language='javascript'>alert(""编辑回复留言成功！"");location.href=""Gbook.asp"";</script>"
Response.End
End If
'系统公告及留言的删除
If X_Menu="del" Then
Conn.Execute("Delete * From [T_GBook] Where G_Id="&int(X_Id)&" ")
Response.write"<script language='javascript'>alert(""留言删除成功！\n\n返回后请刷新！"");location.href=""Gbook.asp"";</script>"
Response.End
End If
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write webname%>-----栏目：留言中心--更多留言</title>
<link rel="stylesheet" href="images/vpei.css">
<body topmargin=10 leftmargin=5>
<%Call top()%>
<br>
<table width=100% align=center cellspacing=1 cellpadding=5 border=0 bgcolor=#000000>
<form method="POST" action="Gbook.asp">
<%
'尚未回复留言和已回复留言的调用
Set Rs_GBook=Conn.Execute("Select * From T_GBook order by G_ATime desc")
If Rs_Gbook.Eof Then
Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3><font color=red>暂无留言</font></td></tr>"
Else
Set Rs_RGbook=Conn.Execute("Select top 20 * From T_GBook Where G_Re<>'none' order by G_ATime desc")
If not Rs_RGbook.Eof Then Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3 background=images/cent.gif><font color=red><B>已回复留言</B></font></td></tr>"
do until Rs_RGbook.eof
Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3><a href=Gbook.asp?menu=del&id="&Rs_RGbook("G_Id")&"><font color=green>删除</font></a> ["&Formatdatetime(Rs_RGbook("G_ATime"),2)&"] ["&Replace(Rs_RGbook("G_Con"),"|","] ")&"</td></tr>"
Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3><font color=red><B>管理员回复</B>：</font><BR> <a href=Gbook.asp?menu=E_Re&id="&Rs_RGbook("G_Id")&"><font color=red>编辑</font></a> <font color=green>["&Formatdatetime(Rs_RGbook("G_RTime"),2)&"]</font> "&Rs_RGbook("G_Re")&"</td></tr>"
Rs_RGbook.movenext
loop
End If
Response.Write "<tr bgcolor=#FFFFFF><td colspan=3 align=right> </td></tr>"
%>
<tr bgcolor=#FFFFFF><td colspan=3 background=images/cent.gif> </td></tr>
</table>
<%Call bottom()%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -