js.asp

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

<%Response.Buffer=true 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "no-cache" 
if Session("hxf_u_nickname")=""  then  Response.Redirect "../error.asp?id=440" 
response.expires=0 
username=session("hxf_u_nickname")
if Application("hxf_js")=0 then  
%>
<script> 
alert('提示：你小子是不是没事找事呀，哪里有鬼？！'); 
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 
conn.execute "update 用户 set 体力=体力-"& Application("hxf_JS") &" where 姓名='"&username&"'"
rs.open "select 体力 FROM 用户 where 姓名='"&username&"'",conn,1,1
if rs("体力")<-100 then
	conn.execute "update 用户 set 状态='死' where 姓名='"&username
	call boot(username)
	conn.execute "insert into 人命(死者,时间,凶手,死因) values ('" & username & "',now(),'僵尸','因勇打僵尸所牺牲')"
	JS="<img src='kl.gif'>太不幸了，["&username&"]为了保护大家的安全，舍身取义，被僵尸咬的七零八落，死翘翘了………"
else
	conn.execute "update 用户 set 经验=经验+"& Application("hxf_js")*10&" where 姓名='" & username & "'"
	JS="厉害!["&username&"]终于打死了僵尸，官府奖励<img src='251.gif'>"&Application("hxf_js")*10&"点经验！"
end if
set rs=nothing                                                                                                                                 
set conn=nothing
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><b>【江湖消息】</b></font>"&JS
Application("hxf_c_sd")=sd 
Application.UnLock 
Application.Lock 
Application("hxf_JS")=0 
Application.UnLock 
%>
<script> 
alert('打僵尸成功'); 
window.close(); 
</script>