lq.asp

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

<%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_lq")=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 
sql="update 用户 set 银两=银两+"& Application("hxf_lq") &" where 姓名='"&username&"'" 
conn.execute sql 
   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>【捡钱】今天真是走运，出门都有钱砸到我的脑袋上，呵。。。因此：["&username&"]得到了"& Application("hxf_lq") &"奖金</font>" 
Application("hxf_c_sd")=sd 
Application.UnLock 
Application.Lock 
Application("hxf_lq")=0 
Application.UnLock 
%> 
<script> 
alert('捡钱成功'); 
window.close(); 
</script>