📄 gbook.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">
<tr bgcolor=#FFFFFF><td height=24 background=images/cent.gif align='left' colspan=4><B>发布系统公告及编辑回复学生留言<B/></td></tr>
<tr bgcolor=#FFFFFF><td height=10 colspan=4></td></tr>
<tr bgcolor=#FFFFFF>
<td width=100 align=center><input type="hidden" name="Id" size="65" value=<%=X_Id%>><select name="Menu">
<option value="add">系统公告</option>
<option value="Re_E"<%If X_Menu="E" Then Response.Write " Selected"%>>编辑留言</option>
<option value="Re_S"<%If X_Menu="Re" Then Response.Write " Selected"%>>回复留言</option>
<option value="E_Re_S"<%If X_Menu="E_Re" Then Response.Write " Selected"%>>编辑回复</option></td>
<td> 内容：<input type="text" name="X_G_Con" size="65" value=<%
If X_Menu="E" Then
Response.Write X_G_Con
ElseIf X_Menu="E_Re" Then
Response.Write X_G_Re
End IF
%>></td>
<td align="center" width=50><input type="submit" value="提交" style="border: 1 solid #000000"></td></tr></form>
<tr bgcolor=#FFFFFF><td height=10 colspan=3></td></tr>
<%
'调出系统公告
Set Rs_GGBook=Conn.Execute("Select * From T_GBook Where G_Xhao='none' order by G_ATime desc")
If not Rs_GGbook.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_GGbook.eof
Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3><a href=Gbook.asp?menu=del&id="&Rs_GGbook("G_Id")&"><font color=red>删除</font></a> <font color=green>["&Formatdatetime(Rs_GGbook("G_ATime"),2)&"]</font> <font color=red>"&Rs_GGbook("G_Con")&"</font></td></tr>"
Rs_GGbook.movenext
loop
End If
'尚未回复留言和已回复留言的调用
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_AGbook=Conn.Execute("Select * From T_GBook Where G_Re='none' ")
If not Rs_AGbook.Eof Then Response.Write "<tr bgcolor=#FFFFFF><td colspan=3> </td></tr><tr bgcolor=#FFFFFF><td height=10 colspan=3 background=images/cent.gif><font color=red><B>尚未回复留言</B></font></td></tr>"
do until Rs_AGbook.eof
Response.Write "<tr bgcolor=#FFFFFF><td height=10 colspan=3><a href=Gbook.asp?menu=Re&id="&Rs_AGbook("G_Id")&"><font color=green>回复</font></a> <a href=Gbook.asp?menu=E&id="&Rs_AGbook("G_Id")&"><font color=red>编辑</font></a> <a href=Gbook.asp?menu=del&id="&Rs_AGbook("G_Id")&"><font color=green>删除</font></a> <font color=red>["&Formatdatetime(Rs_AGbook("G_ATime"),2)&" "&Replace(Rs_AGbook("G_Con"),"|","]</font> ")&"</td></tr>"
Rs_AGbook.movenext
loop
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 colspan=3> </td></tr><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><a href=MoreGB.asp><font color=green>更多回复留言>>></font></a> </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 + -