<%@ 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)
if grade<3 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("银两")
sex=rs("银两")
if rs("内力")>=rs("等级")*200000+rs("武术度") then
Response.Write ""
response.end
set rs=nothing
conn.close
set conn=nothing
end if
if sex="女" then
Response.Write ""
response.end
set rs=nothing
conn.close
set conn=nothing
end if
%>
<% id=request("id")
sql="select * from 名妓 where ID=" & id
Set Rs=connt.Execute(sql)
if rs.eof or rs.bof then
Response.Write ""
response.end
set rs=nothing
connt.close
set conn=nothing
end if
mingji=rs("姓名")
meimao=rs("美貌度")
if ylalert('没钱也想来这种高级的地方呀，请止步！!');window.close();"
response.end
end if
sql="update 用户 set 内力=内力+"&meimao&"/2,体力=体力-100 where 姓名='"&nickname&"' "
conn.execute sql
sql1="update 用户 set 银两=银两-"&meimao&"*1.5 where 姓名='"&nickname&"' "
conn.execute sql1
connt.close
conn.close
set rs=nothing
%>
歌舞宴会