📄 gbook.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="Session.asp"-->
<%
If Request("Menu")="add" Then
Conn.Execute("Insert into [T_GBook] (G_Xhao,G_Con) values ('"&Session("xhao")&"','"&Server.HTMLEncode(Request("X_G_Title")&"|"&Request("X_G_Con"))&"') ")
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?menu=add">
<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><select name="X_G_Title">
<option value="选课问题" selected>选课问题</option>
<option value="成绩问题">成绩问题</option>
<option value="其他问题">其他问题</option></td>
<td> 内容：<input type="text" name="X_G_Con" size="65"></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><tr bgcolor=#FFFFFF><td height=10 colspan=3>"
do until Rs_GGbook.eof
Response.Write "<font color=green>["&Formatdatetime(Rs_GGbook("G_ATime"),2)&"]</font> <font color=red>"&Rs_GGbook("G_Con")&"</font><BR>"
Rs_GGbook.movenext
loop
Response.Write "</td></tr>"
End If
'尚未回复留言和已回复留言的调用
Set Rs_GBook=Conn.Execute("Select * From T_GBook Where G_Xhao='"&Session("Xhao")&"' ")
If Rs_Gbook.Eof Then
Response.Write "<tr bgcolor=#FFFFFF><td colspan=3> </td></tr><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_Xhao='"&Session("Xhao")&"' and G_Re='none' order by G_ATime desc")
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><font color=red>"&Formatdatetime(Rs_AGbook("G_ATime"),2)&"</font> <font color=red>["&Replace(Rs_AGbook("G_Con"),"|","]</font> ")&"</td></tr>"
Rs_AGbook.movenext
loop
Set Rs_RGbook=Conn.Execute("Select * From T_GBook Where G_Xhao='"&Session("Xhao")&"' and 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>["&Formatdatetime(Rs_RGbook("G_ATime"),2)&"] ["&Replace(Rs_RGbook("G_Con"),"|","] ")&"<BR>"
Response.Write "<font color=red><B>管理员回复</B>：</font><BR> <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> </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 + -