📄 list_message.asp
字号:
<!--#include file="../checkuser.asp" -->
<%
m_ver = Trim(request("ver"))
if m_ver="cn" then
tmpstr_t="[中文版]"
elseif m_ver="en" then
tmpstr_t="[英文版]"
else
response.write "错误访问页面，请重试"
response.end
End If%>
<!--#include file="../../Include/db_conn.asp" -->
<!--#include file="include/const.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ys_messageboard where version='"&m_ver&"' order by id desc"
rs.open sql,conn,3,2
dim pagenum
dim e_page
e_page=5 ''每页显示留言数
rs.pagesize=e_page
if request.querystring("pagenum")="" or request.querystring("pagenum")=0 then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
<HTML>
<HEAD>
<TITLE>留言</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
function is_number(str)
{
exp=/[^0-9()-]/g;
if(str.search(exp) != -1)
{
return false;
}
return true;
}
function is_email(str)
{ if((str.indexOf("@")==-1)||(str.indexOf(".")==-1)){
return false;
}
return true;
}
function CheckInput(){
if(form.name.value==''){
alert("您没有填写昵称！");
form.name.focus();
return false;
}
if(form.name.value.length>20){
alert("昵称不能超过20个字符！");
form.name.focus();
return false;
}
if(!is_number(document.form.qq.value)){
alert("QQ号必须是数字！");
form.qq.focus();
return false;
}
if( form.email.value =="") {
alert("请输入您的E-mail !")
form.email.focus();
return false;
}
if(!is_email(form.email.value))
{ alert("非法的EMail地址！");
form.email.focus();
return false;
}
if(form.title.value==''){
alert("您没有填写留言标题！");
form.title.focus();
return false;
}
if(form.title.value.length>20){
alert("留言标题不能超过20个字符！");
form.title.focus();
return false;
}
if(form.content.value==''){
alert("您没有填写留言内容！");
form.content.focus();
return false;
}
if(form.content.value.length>255){
alert("留言内容超过255个字符！");
form.content.focus();
return false;
}
return true;
}
</SCRIPT>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#225597" class="TextFont12"><font color="#FFFFFF">管理留言<%=tmpstr_t%></font></td>
</tr>
<TR>
<TD align="center">
<%if rs.eof and rs.bof then%>
<table width="100%" border="0" align="center" cellpadding="6" >
<tr>
<td height="48" align="center">
<p>还没有任何留言！</p></td>
</tr>
</table>
<%else%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%do while not rs.eof and e_page>0%>
<TABLE class=log_td_table cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> </TR>
<TR>
<TD class=log_text_box style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" vAlign=top>
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr>
<td align="center" valign="bottom" nowrap>第<%=rs("id")%>位 </td>
<td nowrap></td>
<td width="459" align="left" valign="middle" nowrap>
<table width="561">
<tr><td><font color="#666666">TIME：<%=rs("time")%></font> <a title=<%=rs("name")%>来自<%=rs("where")%>><img src="images/friend.gif" width="18" height="18" border="0"></a> <a title=QQ:<%=rs("qq")%>><img src="images/qq.gif" width="18" height="18" border="0"></a> <a href="mailto:<%=rs("email")%>" target="_blank" title=Email：<%=rs("email")%>><img src="images/MAIL.GIF" width="18" height="18" border="0"></a> <a title=IP：<%=rs("ip")%>><img src="images/ip.gif" width="18" height="18" border="0"></a> <a href="<%=rs("homepage")%>" target="_blank" title=主页：<%=rs("homepage")%>><img src="images/url.gif" width="18" height="18" border="0"></a>
[<a href="reply.asp?messageid=<%=rs("id")%>&ver=<%=m_ver%>">回复</a>] [<a href="del_message.asp?id=<%=rs("id")%>&ver=<%=m_ver%>">删除</a>]</td></tr></table>
</td>
<td width="1" align="right" valign="middle"></td>
</tr>
<tr>
<td width="70" rowspan="2" align="center" valign="top">
<p><br>
<br>
<img src="face/<%=rs("select")%>"><br>
</p>
<p> <strong><b><%=rs("name")%></b></strong> <br>
</p></td>
<td width="1" rowspan="2" background="/img/bg_1.gif"></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#F5F5F5">
<table width="95%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5" style="table-layout:fixed;word-break:break-all">
<tr>
<td><img src="icons/<%=rs("face")%>.gif" width="17" height="17"> ：<br>
<font color="#333333">
<%if rs("show")=1 then%>
<%=htmlencode(rs("content"))%> </font>
<%else%><font color="#333333"> 悄悄话：</font><%=htmlencode(rs("content"))%> <font color="#333333">
<% end if %>
</font></td>
</tr>
<tr>
<td><font color="#999999">--------------------------------------------------------</font></td>
</tr>
<tr>
<td>
<table width="100%" height="25" border="0" style="word-break:break-all">
<tr>
<td valign="top"><font color="#999999">站长回复：<%=htmlencode(rs("reply"))%></font></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" background="/img/bg_1.gif"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<br>
<%e_page=e_page-1
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td><div align="right"><font color="#000000"> </font>第<font color=#ff0000><%=pagenum%></font>页 <font color="#000000">
<%for p=1 to rs.pagecount%>
[<a href=list_message.asp?pagenum=<%=p%>&ver=<%=m_ver%>><%=p%></a>]
<%next%>
</font>共<%=rs.pagecount%>页</div></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -