<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="chinahanzi.asp"-->
<%=================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2008-3-22  13:28
' ADD:wap.nowtx.cn
' E-Mail: xivn@163.com  QQ:531233814
=================================================
%>
<card title="身份验证">
<p>
<%dim xm,sfz,rzzt
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="&ids,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="&ids,conn,1,1
listn=rs("listnum")
viewn=rs("viewnum")
relistn=rs("relistnum")
reviewnum=rs("review")
rzzt=rs("rzzt")
rs.close
set rs=Nothing

 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=""sfrz.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=""3""/>"
 Response.Write "</go></anchor>"&chr(13)
  end if
  end if
conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->
</p></card>
</wml>