<%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>"
%>