<%@ 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"),"=") user=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) %> <% sql="select 性别 from 名妓 where 姓名='" &user& "'" Set Rs=connt.Execute(sql) if rs.eof or rs.bof then Response.Write "" response.end 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 id=" & myid set rs=conn.execute(sql) yl=rs("银两") if yl<5000000 then Response.Write "" response.end else sql="update 用户 set 银两=银两- "&yl&" where 姓名= '"&user&"'" set rs=conn.execute(sql) connt.execute("delete * from 名妓 where 姓名='"&user& "'") Response.Write "" response.end conn.close connt.close set rs=nothing end if %>