user_rz.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Cook.asp" -->
<%
Dim WM_RZEmail,WM_RZID,Url
Dim WM_Company,WM_RZBL,WM_IDPic
Select Case Request("Action")
Case "Email"
	  If WR_Mail(5) <> "NO" Then
	    Response.Cookies(CacheName&"RZ").Expires = Date+1
        Response.Cookies(CacheName&"RZ")("Code") = MD5(0,MemName&Now())
        Response.Cookies(CacheName&"RZ")("User") = MemName
	    Email = WRMPS.CheckStr(Request("Email"),0)
		If Email = "" Then Call WRMPS.ErrView("·邮箱不能为空或邮箱地址不正确",0)
		MailBody = WR_Mail(10)
		Url = WR_Setting(4)&"Member/rz.asp?Code="&Request.Cookies(CacheName&"RZ")("Code")&"&User="&escape(Request.Cookies(CacheName&"RZ")("User"))
	    MailBody = Replace(MailBody,"{$Url}",Url)
        Subject = WR_Setting(0)&"会员邮箱认证申请！"
        If WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WR_Setting(0),Subject,Email) = True Then
	      If Int(WR_Mail(17)) > 0 Then
		    Call WRDB.SendMessage(MemName,Null,"您已申请的会员员邮箱认证！","请在24小时内登录您的邮箱查收邮件并按提示操作！")
	      End If
		  Call WRMPS.ErrView("·请在24小时内登录您的邮箱查收认证邮件并按照说明完成最后操作<meta http-equiv=refresh content='1;URL=User_RZ.asp'>", 1)
	    Else
	      Call WRMPS.ErrView("·由于某些原因，认证申请失败，请联系网站管理员协助解决<meta http-equiv=refresh content='1;URL=User_RZ.asp'>", 0)
	    End If
	  Else
	    Call WRMPS.ErrView("·由于某些原因，认证申请失败，请联系网站管理员协助解决<meta http-equiv=refresh content='1;URL=User_RZ.asp'>", 0)
	  End If

Case "ID"
  Response.Write PageTop()
  Response.Write UserPath(",<a href=User_RZ.asp>会员认证</a>")
  Set Rs = Conn.Execute("Select Top 1 WM_RZID,WM_IDPic,WM_TrueName From WM_Member Where WM_ID = "&MemID)
  If Not Rs.Eof Then
	If Rs(2) = "" Or IsNUll(Rs(2)) Then Call WRMPS.ErrView("·在申请实名认证前请先填写你的真实姓名<meta http-equiv=refresh content='3;URL=User_EditInfo.asp'>", 0)
    WM_RZID = Rs(0)
	WM_IDPic = Rs(1)
  End If
  Rs.Close
  Set Rs = Nothing
  With Response
    If WM_RZID = 0 Then
	  If WM_IDPic = "" Or IsNull(WM_IDPic) Then
        .Write "<table border=0 cellspacing=0 cellpadding=5 align=center>"
        .Write "<tr><td height=500 width='400'>"
	    .Write "<div id=up><iframe src=""../Plus/UpLoad/Index.asp?Type=5&User=3&Rz=0"" width=""320px""  height=""100px"" frameborder=0 scrolling=no></iframe></div>"
	    .Write "<br><br>请上传一张您自己的身份证扫描图片。要求：<br>1，图片要能清晰辨认文字及头像，图片模糊将不能被通过<br>2，身份证上的姓名必须和您个人资料中的真实姓名一至，否则不能被通过，实名认证后您的个人资料中的真实姓名将不能被修改"
	    .Write "</td></tr></table>"
	  Else
        .Write "<table border=0 cellspacing=0 cellpadding=5 align=center>"
        .Write "<tr><td height=500 width='400'><strong>您的身份证实名认证正在审核中...</strong></td></tr></table>"
	  End If
	Else
      .Write "<table border=0 cellspacing=0 cellpadding=5 align=center>"
      .Write "<tr><td height=500 width='400'><strong style='font-size:18px'>恭喜您！您已通过身份证实名认证</strong></td></tr></table>"
	End If
  End With
  Response.Write PageButtom()

Case Else
  Set Rs = Conn.Execute("Select Top 1 WM_RZEmail,WM_RZID,WM_Email,WM_IDPic From WM_Member Where WM_ID = "&MemID)
  If Not Rs.Eof Then
    WM_RZEmail = Rs(0)
    WM_RZID = Rs(1)
	Email = Rs(2)
	WM_IDPic = Rs(3)
  End If
  Rs.Close
  Set Rs = Nothing
  Response.Write PageTop()
  Response.Write UserPath(",<a href=User_RZ.asp>会员认证</a>")

  With Response
    .Write "<table width='80%' border=0 cellspacing=0 cellpadding=5 align=center>"
    .Write "<tr><td height=100 colspan=3></td></tr>"
    If WR_Mail(5) <> "NO" Then
	.Write "<tr><td height=80>"
    If WM_RZEmail = 1 Then
      .write "<img src=Img/IsRZ.gif align=left border=0 alt='已认证'>&nbsp;<strong Class=F14>邮箱认证</strong><br>&nbsp;已认证"
    Else
      .write "<img src=Img/NoRZ.gif align=left border=0 alt='未认证'>&nbsp;<strong Class=F14>邮箱认证</strong><br>&nbsp;未认证"
	End If
	.Write "</td><td>"
    If WM_RZEmail = 0 Then
      .write "【<a href=?Action=Email&Email="&Email&">马上申请</a>】"
	End If
	.Write "</td><td>安全电子邮件地址用于接会员帐号安全相关的电子邮件，经过认证后，将不能修改此邮件地址。</td></tr>"
	End If
	
    .Write "<tr><td height=80 width='30%'>"
    If WM_RZID = 1 Then
      .write "<img src=Img/IsRZ.gif align=left border=0 alt='已认证'>&nbsp;<strong Class=F14>实名认证</strong><br>&nbsp;已认证"
    Else
      .write "<img src=Img/NoRZ.gif align=left border=0 alt='未认证'>&nbsp;<strong Class=F14>实名认证</strong><br>&nbsp;未认证"
	End If
	.Write "</td><td width='20%'>"
    If WM_RZID = 0 Then
	  If WM_IDPic = "" Or IsNull(WM_IDPic) Then
        .write "【<a href=?Action=ID>马上申请</a>】"
	  Else
        .write "<strong>请等待认证审核...</strong>"
	  End If
	End If
	.Write "</td><td width='50%'>想提高您的会员信用度，进行会员实名认证。认证用户所发布的信息对于其他浏览用户来说更具真实性，将更受欢迎。<br><span class=Font2>注意：进行实名认证前请先<a href=User_EditInfo.asp>修改您的真实姓名</a></span></td></tr>"
    .Write "<tr><td height=150 colspan=3></td></tr>"
    .Write "</table>"
  End With
  Response.Write PageButtom()
End Select

Call DBConnEnd()
Call ClassEnd()

%>