📄 message.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="vbscript">
<!--
Function adminbutton_onclick
If login.style.display="" Then
login.style.display="none"
Else
login.style.display=""
End If
End Function
-->
</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" cellpadding=0 cellspacing=1 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>
<td colspan="2" align="middle">
<input id="submit1" name="submit1" class="style1" type="submit" value="发送"> <input id="reset1" name="reset1" class="style1" type="reset" value="重写">
<input id="adminbutton" name="adminbutton" class="style1" type="button" value="管理" ></td>
</tr>
<tr>
</tr>
</table>
</form>
<FORM action="MsgLoginCheck.asp" method="POST" id="form2" name="form2">
<table align=center><tr>
<td colspan="4" style="display:none" id="login" align="center">
管理员:<INPUT type="text" id="text5" name="userid1">密码:<INPUT type="password" id="password1" name="password1">
<INPUT type="submit" value="进入" id="submit2" name="submit2" class="style1"><br>
<FONT color="crimson" size="2"><STRONG>**请确保Internet选项中cookies未被禁用!**</STRONG></FONT>
</td></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" width="500"
align="center" cellpadding=0 cellspacing=0>
<%
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>
</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> <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 + -