<%@ codepage ="936" %> <%If Session("usepro") = true Then%> <% if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") my=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) id=request("id") win=request("win") Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="select id from 用户 where id=" & myid set rs=conn.execute(sql) if rs.eof or rs.bof then %> <% conn.close response.end else if win=1 then sql="select * from 用户 where 姓名='" & my & "'" conn.execute sql sql="update 用户 set 内力=内力+50,体力=体力+500,经验=经验+20 where 姓名='"&my&"' " conn.execute sql %> <% else sql="update 用户 set 内力=内力-300,体力=体力-300,经验=经验-20 where 姓名='"&my&"' " conn.execute sql %> <% end if end if conn.close set rs=nothing Session("usepro")= false %> <%else response.write "请通过正常途径来打倭寇." response.end end if %>