<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="../Inc/chinahanzi.asp"-->
<%call head()
Call saycardd("身份验证")
%>

<!--#INCLUDE file="newguest.asp"-->
<%
dim xm,sfz
xm=request("xm")
sfz=request("sfz")
rzzt=request("rzzt")
TP=clng(request("TP"))
if TP=1 then

if xm="" or IsNumeric(listn)=False or ifbadchr(chinahanzi,xm) then
  Call Error("无效姓名，请认真填写！")
  end if

if sfz="" or IsNumeric(viewn)=False or len(sfz)<>18 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("xm")=xm
rs("sfz")=sfz
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="&myid,conn,1,1
listn=rs("listnum")
viewn=rs("viewnum")
relistn=rs("relistnum")
reviewnum=rs("review")
rzzt=rs("rzzt")
rs.close
set rs=Nothing
 if rzzt=1 then
 Response.Write "您的资料已登记，正在审核中<br/>"
 end if
 if rzzt=2 then
 Response.Write "恭喜，您的资料已通过认证！可享受包括社区商城在内的全部服务！<br/>"
 end if
 if rzzt=0 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&"','"&mz&"登记了(url=/bbs/grsmrz.asp?saytk="&saytk&"&sid=[sid])个人实名(/url)')")
if saytk>1 then
call xlanlj("grsmrz.asp?bbsid="&bbsid&"&amp;tid="&tid&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
Response.Write "个人真实姓名<br/>"
 Response.Write "<input name=""xm"" maxlength=""9"" value="""&xm&"""/><br/>"
 Response.Write "新身份证号码<br/>"
 Response.Write "<input name=""sfz"" maxlength=""18"" value="""&sfz&"""/><br/>"
 call xltjlj("tp","1")
 call xltjlj("rzzt","1")
 call xlanlj1("确定登记实名认证资料")
 else
Response.Write "个人真实姓名<br/>"
 Response.Write "<input name=""xm"&tt&""" maxlength=""9"" value="""&xm&"""/><br/>"
 Response.Write "新身份证号码<br/>"
 Response.Write "<input name=""sfz"&tt&""" maxlength=""18"" value="""&sfz&"""/><br/>"
 Response.Write "<anchor>确定登记实名认证资料"
 Response.Write "<go href=""grsmrz.asp?bbsid="&bbsid&"&amp;tid="&tid&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""xm"" value=""$(xm"&tt&")""/>"
 Response.Write "<postfield name=""sfz""   value=""$(sfz"&tt&")""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""rzzt"" value=""1""/>"
 Response.Write "</go></anchor>"&chr(13)
 end if
 end if
 if rzzt=3 then
 Response.Write "很遗憾,您的认证资料未通过审核,可能填写有误,请重新填写!<br/>"
 Response.Write "个人真实姓名<br/>"
 Response.Write "<input name=""xm"&tt&""" maxlength=""9"" value="""&xm&"""/><br/>"
 Response.Write "新身份证号码<br/>"
 Response.Write "<input name=""sfz"&tt&""" maxlength=""18"" value="""&sfz&"""/><br/>"
 Response.Write "<anchor>确定登记实名认证资料"
 Response.Write "<go href=""grsmrz.asp?bbsid="&bbsid&"&amp;tid="&tid&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""xm"" value=""$(xm"&tt&")""/>"
 Response.Write "<postfield name=""sfz""   value=""$(sfz"&tt&")""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "<postfield name=""rzzt"" value=""1""/>"
 Response.Write "</go></anchor>"&chr(13)
 end if
 end if
conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->
<%Call headsay()%>