<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<card title="会员身份认证修改"><p>
<%call head()
if keys=0 and skey=0 then
  Call Error("非常抱歉！您的权限不足！")
end if
dim TP,ids
ids=Request("ids")
TP=Request("TP")
rzzt=trim(request("rzzt"))
if ids="" or Isnumeric(ids)=False then
  Call Error("无效会员！")
  end if
'检查ID是否存在
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT name FROM users where id="&ids,conn,1,1
if rs.eof then
  rs.close
  set rs=Nothing
  Call Error("会员不存在！")
end if
  rs.close
  set rs=Nothing
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if myid<>0 then
if newguest > 0 then
Response.write "<a href='msgview.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
response.write"欢迎您：<a href='show.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&myni&"</a><br/>"&chr(13)
else
Response.write "欢迎您:<a href='login.asp?url=/bbs/index.asp'>登陆/注册</a><br/>"& chr(13)
end if

if TP<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from Users where id="&ids,conn,1,2
rs("rzzt")=rzzt
rs.update
rs.close
set rs=nothing
 Response.Write "身份认证类型修改成功！<br/>"
ELSE
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from Users where id="&ids,conn,1,1
dim oo,jia,uid,about,YD_name,photoview,sex,rmbcent,age,regtime,overtime,ftsl,hfsl,City,sr,xuan1,newmyjb,newmyjy,newdatainfo,zoneid,xm,sfz,rzzt,merry,pass,aqm,newmytl,newmych,newmyml,zcfs,ttvv
zcfs=rs("zcfs")
oo=rs("oo")
jia=rs("jia")
about=rs("about")
sjhmnum=rs("sjhm")
YD_name=rs("name")
photoview=rs("photo")
sex=rs("sex")
newrmbcent=rs("rmbcent")
regtime=rs("regtime")
overtime=rs("tjj")
City=rs("City")
sr=rs("sr")
age=rs("age")
uid=rs("sid")
pass=rs("mm")
aqm=rs("answer")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newmytl=rs("mytl")
newmych=rs("mych")
newmyml=rs("myml")
newbank=rs("bank")
newbankjie=rs("bankjie")
newmyjy=rs("myjy")
newdatainfo=rs("datainfo")
sex=clng(sex)
zoneid=rs("zoneid")
merry=rs("merry")
mobile=rs("mobile")
centmm=rs("centmm")
newregip=rs("myip")
newoverip=rs("loginIP")
IpArrayubb=ubb(newoverIP)
IpArraysy=split(IpArrayubb,".")
syip1=ubb(IpArraysy(0))
syip2=ubb(IpArraysy(1)) 
syip3=ubb(IpArraysy(2))
syip4=ubb(IpArraysy(3))
xm=rs("xm")
sfz=rs("sfz")
rzzt=rs("rzzt")
ttvv=rs("ttvv")
pz=rs("cw")
RC=rs("RC")

response.write"★会员资料☆<br/>------------<br/>"
response.write"昵称："&ubb(YD_name)&"<br/>"
response.write"VIP："
 if rs("vipdj")<>0 then
response.write"VIP会员<br/>"
Response.write "有限至："&rs("vipdate")&"<br/>"
else
response.write"暂时不是会员<br/>"
end if
set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select ID from Users where DateDiff('n', tjj, Now())<="&lonline&" and id="&rs("id"),conn,1,1
if not rs1.eof then
response.write "状态：在线<br/>"
else
response.write "状态：离线<br/>"
end if
rs1.close
set rs1=nothing
response.write "性别："
if sex=1 then 
response.write "男"
elseif sex=2 then 
response.write "女"
else
response.write "保密"
end if
response.write "<br/>年龄："&ubb(age)&""
response.write "<br/>生日："&ubb(sr)&"<br/>"
response.write "城市："&ubb(City)&"<br/>"
response.write "等级："&getLvl(newmyjy)&"<br/>"
response.write ""&getcent&"："&newmyjb&"<br/>"
response.write "元宝："&newrmbcent&"<br/>"
response.write "经验："&newmyjy&"<br/>"
response.write "头衔："&getHandle(newmyjy)&"<br/>"
response.write "手机："&ubb(sjhmnum)&"<br/>"
response.write "签名："&ubb(newdatainfo)&"<br/>"
response.write "个人介绍："&ubb(about)&"<br/>"
response.write "注册时间："&ubb(regtime)&"<br/>"
response.write "注册方式："&zcfs&"<br/>"
response.write "最后在线："&ubb(overtime)&"<br/>"
response.write "注册IP："&ubb(newregIP)&"<br/>"
response.write "最后IP："&ubb(newoverIP)&"<br/>"
if ttvv=0 then
Response.write "房门：关闭<br/>"&chr(13)
elseif ttvv=1 then
Response.write "房门：敞开<br/>"&chr(13)
else
Response.write "房门：封锁(范围:地盘和资料)<br/>"&chr(13)
end if
if rzzt=1 then
response.write "------------<br/>姓名："&xm&"<br/>身份证："&sfz&""
response.write "<br/>状态：等待你审核<br/>"
elseif rzzt=2 then
response.write "------------<br/>姓名："&xm&"<br/>身份证："&sfz&""
response.write "<br/>状态：已审核<br/>"
end if

if rs("rzzt")=0 then
 '未进行认证.[进行认证]
Response.write "------------<br/><anchor>[发送提示消息]<br/>"
Response.write "<go href='/admin/enter/msgaddsave.asp?lid="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&"' method='post' accept-charset='utf-8'>"
Response.write "<postfield name=""txt"" value=""尊敬的会员！为了你能够享有更多、更好的服务！希望你配合完成本站的实名认证！请放心！本站不会泄露你的任何个人信息！希望你的配合！谢谢！（具体步骤：我的地盘→个人实名认证 和 联系资料设定）""/>"
Response.write "<postfield name=""lid"" value=""ids""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
Response.write "</go></anchor><br/>"

elseif rs("rzzt")=1 then
 '认证审核中.[进行审核]
 Response.Write "------------<br/><anchor>[确定通过审核]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""2""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor>"
Response.Write "<br/><anchor>[确定清空认证]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""0""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor><br/>"

elseif rs("rzzt")=2 then
 '已通过认证.[取消认证]
 Response.Write "------------<br/><anchor>[确定取消认证]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""1""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor>"
Response.Write "<br/><anchor>[确定清空认证]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""0""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor><br/>"

else '认证失败.[重新认证]
 Response.Write "------------<br/><anchor>[确定通过审核]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""2""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor>"
 Response.Write "<br/><anchor>[确定清空认证]"
 Response.Write "<go href=""sfrzadd.asp?ids="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""rzzt"" value=""0""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""ids"" value="""&ids&"""/>"
 Response.Write "</go></anchor><br/>"
 
 end if
  end if
conn.close
set conn=nothing
response.write"<a href=""uin.asp?id="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[用户详细资料]</a>"
response.write"<br/>------------<br/><a href=""sfrzbook.asp?saytk="&saytk&"&amp;sid="&sid&""">返回身份认证情况</a>"
%>
<!--#include file="fanhui.asp"-->
</p></card>
</wml>