jshand.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 56 行

<%response.expires=0
nickname=session("hxf_u_nickname")
f=Minute(time())
if f<20 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗恩怨时间不能放僵尸!');(location.href = 'javascript:window.close()')}</script>"
response.end
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select * from 用户 where 姓名='"&nickname&"'"
set rs=conn.execute(sql)
zd_dj=int(rs("allvalue")/1000)
if zd_dj>99 then zd_dj=99
if zd_dj<60 or rs("会员")=false or rs("内力")<2000000 or rs("体力")<2000000 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗放僵尸的条件是战斗等级高于60级,体力内力高于200万的会员,为避免频繁放僵尸刷屏,每放一次,体力内力各减低200万!');(location.href = 'javascript:window.close()')}</script>"
response.end
end if
if application("hxf_js")<>0 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗放出僵尸还没有打完呢?!');(location.href = 'javascript:window.close()')}</script>"
response.end
else
randomize()
rnd1=cint(rnd()*350)
jstl=int(rnd*50000)+100
		Application.Lock
		Application("hxf_js")=jstl
		Application.UnLock
Application.Lock 
sd=Application("hxf_c_sd") 
line=int(Application("hxf_c_line")) 
Application("hxf_c_line")=line+1 
for i=1 to 171 
 sd(i)=sd(i+9) 
next 
sd(172)=line 
sd(173)=1 
sd(174)=0 
sd(175)="消息" 
sd(176)="大家" 
sd(177)="660099" 
sd(178)="660099" 
sd(179)="对" 
sd(180)="<font color=red>【僵尸】:僵尸呀有僵尸呀!一女子尖叫，一具僵尸闯进聊天室，僵尸体力：+"&jstl&"</font><br><marquee width=100% behavior=alternate scrollamount=15><a href=js.asp target='d'><img src=kl.GIF border=0></a></marquee>释放者:["&nickname&"]"
Application("hxf_c_sd")=sd
Application.UnLock
end if
   sql="update 用户 set 内力=内力-2000000,体力=体力-2000000 where 姓名='" & nickname & "'" 
   conn.execute sql
   rs.close
conn.close
set rs=nothing
set conn=nothing 
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗僵尸放出成功!');(location.href = 'javascript:window.close()')}</script>"
%>