<%@ codepage ="936" %>
<%
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)
hy=rs("会员")
if hy<>"yes"and hy<>"yess" and hy <> "gold" and hy <>"golds" then
%>
<%
conn.close
response.end
else
%>
<% Session("usepro")=true %>
天外天游戏
<%
conn.close
set rs=nothing
end if%>