<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="../Inc/chinahanzi.asp"-->
<%call head()
Call saycarda("VIP休息室")
%>

<!--#INCLUDE file="newguest.asp"-->
<%




dim mytl,mych,myml
mytl=request("mytl")
mych=request("mych")
myml=request("myml")
TP=clng(request("TP"))
if TP=1 then
if mytl="" or mych="" or myml="" then
  Call Error("无效！")
  end if


set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,2
If rs.eof Then
  Call Error("会员不存在！")
  end if
rs("mytl")=mytl
rs("mych")=mych
rs("myml")=myml
rs.update
rs.close
set rs=Nothing
 Response.Write "体力,才华,魅力均恢复为100！<br/>"
 Response.Write "ha ha,我感觉全身舒服多了！<br/>"


else

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,1
mytl=rs("mytl")
mych=rs("mych")
myml=rs("myml")
vipdj=rs("vipdj")
rs.close
set rs=Nothing
if vipdj>=1 then
 if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','VIP会员"&mz&"在(url=/bbs/shuxin.asp?saytk="&saytk&"&sid=[sid])VIP休息室(/url)打牌')")
 Response.Write "您的属性:体力"&mytl&"，才华"&mych&"，魅力"&myml&"<br/>"
 if mytl+mych+myml>=300 then
 Response.Write "您的属性很正常，不需要恢复<br/>体力才华魅力总和大等于300即为正常"
 Else
 
If saytk>1 then
%>
<form name="form" method="post" action="shuxin.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%
response.write "<input type=""hidden"" name=""mytl"" value=""100""/>"
response.write "<input type=""hidden"" name=""mych"" value=""100""/>"
response.write "<input type=""hidden"" name=""myml"" value=""100""/>"
response.write "<input type=""hidden"" name=""TP"" value=""1""/>"
response.write "<br/><input type=""submit"" name=""Submit"" value=""我要恢复属性""></form><br/>"
else
 Response.Write "<anchor>我要恢复属性"
 Response.Write "<go href=""shuxin.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""mytl"" value=""100""/>"
 Response.Write "<postfield name=""mych"" value=""100""/>"
 Response.Write "<postfield name=""myml"" value=""100""/>"
  Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "</go></anchor>"&chr(13)
End if

end if
end if
if vipdj<1 then
Response.Write "您不是VIP会员跑这里来干嘛？"
end if
end if
conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>