|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。音乐开关和图象开关/请勿打挠开关操纵文件admin/dontimg.asp
<%
OptionExplicit
dimroom,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)
selectcasedd
case"0"
ifai="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;"
endif
case"1"请勿要挠操纵
ifai="on"then
if(chatdata(sendid,4)mod2)=1then已翻开了
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,乐成地翻开了请勿打挠功效"
endif
else
if(chatdata(sendid,4)mod2)=0then已封闭了
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,乐成地封闭了请勿打挠功效"
endif
endif
endselect
%>
<metahttp-equiv="refresh"content="4;URL=../refresh.asp?room=<%=room%>&user=<%=user%>">
<scriptlanguage=javascript>
<%ifdispstr2""thenresponse.writedispstr2%>
parent.comm=newArray(<%=dispstr%>);
parent.writecomm();</script>
<%
functionfinduser(fuser)
dimreval,i
reval=100
fori=0to99
ifchatdata(i,0)=fuserthen
reval=i
exitfor
endif
next
finduser=reval
endfunction
%>
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|