<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") name=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) yilao=request.form("yilao") if yilao<>"无" then Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr '校验用户 sql="SELECT 体力,银两,等级,武术度 FROM 用户 WHERE 姓名='" & name & "' and 体力<等级*200000+武术度 and 等级>=5" Set Rs=conn.Execute(sql) If Rs.Bof OR Rs.Eof Then mess="你的生命以满或是你的等级没有5级以上。" else sm=rs("体力") yl=rs("银两") dj=rs("等级") ws=rs("武术度") select case yilao case "吃些补品" bl=0.6 cd=dj*200000+ws-sm case "一般治疗" bl=0.55 cd=dj*200000+ws-sm case "抢救生命" bl=0.5 cd=dj*200000+ws-sm end select fy=int(cd/bl) sm=dj*200000+ws-sm if yl

<%=mess%>

关闭窗口