音樂開關和映像開關/請勿打撓開關操作檔案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,請勿打撓打撓開關己處於關閉狀態"
