音乐开关和图像开关/请勿打挠开关操作文件admin/dontimg.asp
<%
Option Explicit
dim room,user,dd,ai,chatdata,sendid,dispstr,dispstr2
user=request.form("user")
dd=request.form("dd")
ai=request.form("ai")
chatdata=application("chatdata")
sendid=finduser(user)
select case dd
case "0"
if ai="on" then
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,你成功地打开了图像和Midi"
dispstr2="parent.midisw=true;"
else
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,你成功地关闭了图像和Midi"
dispstr2="parent.midisw=false;"
end if
case "1" '请勿要挠操作
if ai="on" then
if (chatdata(sendid,4) mod 2)=1 then '已经打开了
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,请勿打挠开关已处于打开状态"
else
chatdata(sendid,4)=chatdata(sendid,4)+1
application.lock
application("chatdata")=chatdata
application.unlock
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,成功地打开了请勿打挠功能"
end if
else
if (chatdata(sendid,4) mod 2)=0 then '已经关闭了
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,请勿打挠打挠开关己处于关闭状态"
else
chatdata(sendid,4)=chatdata(sendid,4)-1
application.lock
application("chatdata")=chatdata
application.unlock
dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,成功地关闭了请勿打挠功能"
end if
end if
end select
%>
<meta http-equiv="refresh" content="4; URL=../refresh.asp?room=<% =room %>&user=<% =user %>">
<script language='javascript'>
<% if dispstr2<>"" then response.write dispstr2 %>
parent.comm=new Array('<% =dispstr %>');
parent.writecomm();</script>
<%
function finduser(fuser)
dim reval,i
reval=100
for i=0 to 99
if chatdata(i,0)=fuser then
reval=i
exit for
end if
next
finduser=reval
end function
%>