📄 managemsg.asp
字号:
<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<html>
<head>
<LINK href="style.css" type="text/css" rel="stylesheet">
</head>
<%
Dim mc_Class,PageCount,AbsolutePage
Set mc_Class = New MessageClass
Set mc_RClass = New MessageClass
Call mc_Class.viewMessage()
If not mc_Class.dbc_Class.Rs.Eof Then
mc_Class.dbc_Class.Rs.PageSize = 5
PageCount = mc_Class.dbc_Class.Rs.PageCount
AbsolutePage = mc_Class.dbc_Class.Rs.AbsolutePage
If Request.querystring("page") <> "" Then
mc_Class.dbc_Class.Rs.AbsolutePage = Request.querystring("page")
AbsolutePage = Request.querystring("page")
Else
mc_Class.dbc_Class.Rs.AbsolutePage =mc_Class.dbc_Class.Rs.PageCount
AbsolutePage = mc_Class.dbc_Class.Rs.PageCount
End If
Else
PageCount = 0
AbsolutePage = 0
End If
'Response.Write Date()
%>
<script language=javascript>
<!--
function revert(strID){
//修改第一个FORM的查询字符串
document.form1.action = "storeMsg.asp?type=0&pid="+strID;
//将发送按按钮改为回复按钮
document.form1.submit1.value = "回复"
}
//-->
</script>
<body>
<p align="center"><font size="5"><strong>管理留言</p>
</font>
<hr width="500">
<form action="storeMsg.asp?type=1" method="post" id="form1" name="form1">
<table border="1" width="500" borderColorDark="lightskyblue" borderColorLight="lightblue"
align="center">
<tr bgColor="#ff9933">
<td>
<img src="image/view.gif" style="HEIGHT: 28px; WIDTH: 33px"><strong><font size="2">姓名:</font></strong></td>
<td><input id="text1" name="name"></td>
</tr>
<tr>
<td>
<img src="image/email.gif" style="HEIGHT: 25px; WIDTH: 30px"><strong><font size="2">Email:</font></strong></td>
<td><input id="text2" name="email"></td>
</tr>
<tr>
<td>
<img src="image/star.gif" style="HEIGHT: 29px; WIDTH: 33px"><strong><font size="2">OICQ:</font></strong></td>
<td><input id="text3" name="oicq"></td>
</tr>
<tr>
<td>
<img src="image/conn.gif" style="HEIGHT: 28px; WIDTH: 33px"><strong><font size="2">电话:</font></strong></td>
<td><input id="text4" name="tell"></td>
</tr>
<tr bgColor="#ff9933">
<td colspan="2">
<img src="image/message.gif" style="HEIGHT: 29px; WIDTH: 28px"><font size="2"><strong>留言内容:</strong></font></td>
</tr>
<tr>
<td colspan="2" align="middle"><textarea id="TEXTAREA1" name="message" style="HEIGHT: 69px; WIDTH: 350px"></textarea></td>
</tr>
<tr bgcolor ="#cccc33">
<td colspan="2" align="middle">
<input name="submit1" class="style1" type="submit" value="发送">
<input id="reset1" name="reset1" class="style1" type="reset" value="重写"></td>
</tr>
<tr>
</tr>
</table>
</form>
<hr width="500">
<%If not mc_Class.dbc_Class.Rs.Eof Then%>
<div align="center"><font size="3" color="Tomato"><b>第<%=AbsolutePage%>页，共<%=PageCount%>页</b></font></div>
<table border="1" bordercolordark="MintCream" bordercolorlight="GhostWhite" width="500"
align="center">
<%Do While not mc_Class.dbc_Class.Rs.Eof%>
<tr bgcolor ="#cccc33">
<td height="27"><div align="left"><font size="3"><strong>姓名:</strong></font>
<font color="DarkRed"><%=mc_Class.dbc_Class.Rs("Name")%></font>
<br>
<a href=""><img src="image/email.gif" style="HEIGHT: 23px; WIDTH: 25px" border="0" alt=<%=mc_Class.dbc_Class.Rs("email")%>></a>
<a href="#"><img src="image/oicq.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt=<%=mc_Class.dbc_Class.Rs("oicq")%>></a>
<a href="#"><img src="image/conn.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt=<%=mc_Class.dbc_Class.Rs("tell")%>></a>
<a href="#"><img src="image/task.gif" style="HEIGHT: 23px; WIDTH: 28px" border="0" alt=<%=mc_Class.dbc_Class.Rs("InputDate")%>></a>
<a href="#"><img src="image/ie.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt=<%=mc_Class.dbc_Class.Rs("Ip")%>></a>
<a href="javascript:revert(<%=mc_Class.dbc_Class.Rs("ID")%>);"><img src="image/edit.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt="回复"></a>
<a href="delMsg.asp?id=<%=mc_Class.dbc_Class.Rs("ID")%>"><img src="image/del.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt="删除"></a>
</td>
</tr>
<tr>
<td height="50" valign="top"><font size="2" color="Peru"><STRONG>留言内容:</STRONG></font><br>
<%=mc_Class.dbc_Class.Rs("Message")%></td>
</tr>
<%Call mc_RClass.revertMessage(mc_Class.dbc_Class.Rs("ID"))%>
<%Do While not mc_RClass.dbc_Class.Rs.Eof%>
<tr>
<td height="50" valign="top"><font size="2" color="Peru"><STRONG>回复:</STRONG></font>
<font color="DarkRed"><%=mc_RClass.dbc_Class.Rs("Name")%></font> <a href="delMsg.asp?id=<%=mc_RClass.dbc_Class.Rs("ID")%>"><img src="image/del.gif" style="HEIGHT: 25px; WIDTH: 25px" border="0" alt="删除"></a><br>
<%=mc_RClass.dbc_Class.Rs("Message")%>
</td>
</tr>
<%
mc_RClass.dbc_Class.Rs.MoveNext()
Loop%>
<%
mc_Class.dbc_Class.Rs.MoveNext()
Loop
mc_Class.dbc_Class.CloseConn()
mc_RClass.dbc_Class.CloseConn()%>
<tr bgColor="#ff9933">
<td><font color=gold>留言分页：</font>
<%for i=1 to PageCount %>
<a href="Message.asp?page=<%=i%>"><font size=3 color=#cccccc><b><% =i%></b></font></a>
<% next%>
</td>
</tr>
</table>
<%Else%>
<div align="center"><font size="3" color="Tomato">当前没有留言</font></div>
<%End If%>
<br>
<hr width="500">
<P></P>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -