lhhand.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<%response.expires=0
nickname=session("hxf_u_nickname")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & sj
if f<20 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗恩怨时间不能放猎!');(location.href = 'javascript:window.close()')}</script>"
response.end
end if
flsj=application("flsj")
if flsj<>"" then
sj3=DateDiff("s",flsj,sj2)
if sj3<600 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗这么频繁的放猎想刷屏吗?，离下次放猎还有" & (600-sj3) & "秒，先等等吧*_^');(location.href = 'javascript:window.close()')}</script>"
response.end
end if
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<50 or rs("会员")=false or rs("内力")<2000000 or rs("体力")<2000000 then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗放猎物的条件是战斗等级高于50级,内力体力高于200万的会员,为避免频繁放猎作弊,每10分钟放一次,体力内力各减低200万!');(location.href = 'javascript:window.close()')}</script>"
response.end
end if
if Application("dalie")="老虎" then
Response.Write "<script language=JavaScript>{alert('〖"&nickname&"〗放出猎物还没有打完呢?!');(location.href = 'javascript:window.close()')}</script>"
response.end
else
Application("dalie")="老虎"
application("flsj")=""
Application.Lock
application("flsj")=sj2
'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>【消息】</font><b><font color=red>突然一只野兽<img src=laohu.gif>窜入江湖中伤人，请高手们快去打猎啊。</font></b>放猎者:["&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>"
%>