<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="../Inc/chinahanzi.asp"-->



<%call head()
Call saycardd("资料显示设置")
%><!--#INCLUDE file="sy1.asp"--><%
dim xm,sfz

ttvv=request("ttvv")
TP=clng(request("TP"))
if TP=1 then

if ttvv="" or IsNumeric(viewn)=False then
  Call Error("无效，请认真填写！")
  end if
if ttvv<>1 and ttvv<>0 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("ttvv")=ttvv
rs.update
rs.close
set rs=Nothing
 Response.Write "设置成功<br/>"

else
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,1
listn=rs("listnum")
viewn=rs("viewnum")
relistn=rs("relistnum")
reviewnum=rs("review")
ttvv=rs("ttvv")
rs.close
set rs=Nothing
 if ttvv=1 then
 Response.Write "当前你的个人资料为可见状态<br/>"
 end if
 if ttvv=0 then
 Response.Write "当前你的个人资料为不可见状态<br/>"
 end if
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&"','"&mz&"开启了他的(url=/bbs/guanbi.asp?saytk="&saytk&"&sid=[sid])房门(/url)')")
Response.Write "资料可见状态:<br/>"
If saytk<>1 then%>
<form name="form" method="post" action="guanbi.asp?tid=<%=tid%>&amp;bbsid=<%=bbsid%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">
<%End if%>
<select name="ttvv" value="<%=ttvv%>">
<option value="0">关门</option>
<option value="1">开门</option>
</select><br/><%
If saytk<>1 Then
response.write "<input type=""hidden"" name=""TP"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确定提交""></form><br/>"

else

 Response.Write "<anchor>确定更改"
 Response.Write "<go href=""guanbi.asp?bbsid="&bbsid&"&amp;tid="&tid&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
Response.Write "<postfield name=""ttvv""   value=""$(ttvv)""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
Response.Write "</go></anchor>"&chr(13)
end If
End if
conn.close
set conn=nothing
response.Write"<br/><a href=""show.asp?sid="&sid&"&amp;saytk="&saytk&""">返回小屋</a>"%>
<!--#include file="fanhui.asp"-->
<%Call headsay()%>