<%@ 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"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) 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) if rs("门派")="无" then Response.Write "" response.end conn.close set rs=nothing set conn=nothing end if if rs("身份")="掌门" or rs("身份")="副掌门" then Response.Redirect "../chat/error.ASP?id=452" wei=rs("骨头") dengji=rs("等级") if dengji <25 or wei <15000 then Response.Write "" response.end conn.close set rs=nothing set conn=nothing else sql="update 用户 set 身份='副掌门' where ID="& myid set rs=conn.execute(sql) Response.Write "" response.end conn.close set rs=nothing set conn=nothing end if %>