音乐开关和图像开关/请勿打挠开关操作文件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
%>