<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<body onLoad="show(e61),show(e62)">
<!--#include file="top.asp"-->

<%if shopnet("add")="addrz" and shibai="" then
If shopnet("xt")="" Then 
'Response.Write("<script>alert(""会员密码错误，不能修改。请确认您的会员原密码"");location.href=""?abc=pass"";</script>")
'response.write("<script>alert(""请上传图片!"");window.history.go(-1);</script>")
'response.end
End if
set Rs=server.createobject("adodb.recordset")
sql="select * from rz where username='"&myhuiyuan&"'"

Rs.open sql,conn,2,3
if Request.ServerVariables("HTTP_X_FORWARDED_FOR") = ""  then
ip=Request.ServerVariables("REMOTE_ADDR")
else
ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
if rs.eof then
rs.addnew
end If
rs("ip")=ip
rs("huiyuanid")=cookieid
rs("tp")=shopnet("xt")
rs("name")=shopnet("name")
rs("tel")=shopnet("tel")
rs("mail")=shopnet("mail")
rs("dz")=shopnet("dz")
rs("idcard")=shopnet("idcard")
rs("rzjb")=shopnet("rz")
rs("shouji")=shopnet("shouji")
rs("yb")=shopnet("yb")
rs("sj")=sqlnow
rs("yz")=0
rs("username")=shopnet("username")
rs.update
rs.close
set rs=nothing
response.Write("<Script>alert('身份认证提交成功，我们将在3个工作日内为您确认并联系您。');window.location='index.asp';</script>")
end If

%>
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="22" colspan="2"> 您的位置： <A href="../index.asp">首页</A>
      &gt;&gt; <A href="/user/index.asp">会员中心</a> &gt;&gt; 身份认证
     </td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->    </td>
<td width="582" height="280" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF">身份认证</font></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table></td>
  </tr>
</table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="4" bgcolor="1E88C1"></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="5"></td>
    </tr>
  </table>
  <% 
set rz = conn.execute("select rzjb,yz,liyou from rz where username='"&myhuiyuan&"'")
if not rz.eof then
Select case rz(0)
case 3
rzread="<img src=../image/yingyezhizhao.gif width=34 height=20 border=0 align=bottom>&nbsp;企业实名认证卖家"
case 2
rzread="<img src=../image/shenfenzheng.gif width=34 height=20 border=0 align=bottom>&nbsp;个人实名认证卖家"
case 1
rzread="<img src=../image/shenfenzheng.gif width=34 height=20 border=0 align=bottom>&nbsp;个人实名认证买家"
End Select

Select case rz(1)
case 0
response.Write "<br><br><CENTER>您已经提交身份认证，正在审核中，请等待,我们将尽快处理！</CENTER>"
Response.end
case 1
response.Write "<br><br><br><br><br><CENTER>您提交的身份资料认证失败，<a href=sfrztj.asp>点击这里重新提交身份资料认证！</a><br><br><br><br>失败原因："&rz(2)&"</CENTER>"
Response.end
case 2
response.Write "<br><br><CENTER>您已经进行身份认证！您的身份认证级别是："&rzread&"</CENTER>"


End Select
rz.close
set rz=nothing
else
set Rs=server.createobject("adodb.recordset")
sql="select * from huiyuan where huiyuan='"&myhuiyuan&"'"
Rs.open sql,conn,1,1
if rs("dz")="" or rs("tel")="" or rs("name")="" or rs("idcard")="" or rs("shouji")="" or rs("yb")=""  Or rs("mail")="" Or rs("dizhi1")="" then 
response.Write("<Script>alert('您的注册资料没有填写完整.请先填写完整的注册资料后再进行身份认证');window.location='index.asp?abc=info';</script>")
else
Response.redirect "sfrztj.asp"
Response.End
End If
End if
%>
  <p>
</p>
</table>
</td>

<!--#include file="../bottom.asp"-->
