rz.asp

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

<!--#include file="Cook.asp" -->
<%
  Dim Code,User,rFlag,Integral,CountOut,UserName
  Code = WRMPS.CheckStr(Request("Code"),0)
  User = WRMPS.CheckStr(Request("User"),0)
  If Code = "" Or IsNull(Code) Or User = "" Or IsNull(User) Then Call WRMPS.ErrView("·操作错误",0)
  If Code = Request.Cookies(CacheName&"RZ")("Code") And User = Request.Cookies(CacheName&"RZ")("User") Then
    '认证成功
	Set Rs = Conn.Execute("Select WM_Flag From WM_Member where WM_UserName = '"&User&"' and WM_RZEmail = 0")
	If Not Rs.Eof Then
	  rFlag = Rs(0)
	  Integral = Int(Split(Split(rFlag,"§")(0),"|")(7))
	  CountOut = Int(Split(Split(rFlag,"§")(0),"|")(8))
	  If WRDB.SaveConsume(0,User,0,CountOut,Integral,WR_Faith(0),"完成邮箱认证") Then
	    Conn.Execute("Update WM_Member Set WM_RZEmail = 1 Where WM_UserName = '"&User&"' and WM_RZEmail = 0")
	    Call WRMPS.ErrView("·恭喜您邮箱认证成功<meta http-equiv=refresh content='1;URL=User_RZ.asp'>",0)
	  End If
	End If
	Rs.Close
	Set Rs = Nothing
    Response.Cookies(CacheName&"RZ")("Code") = ""
    Response.Cookies(CacheName&"RZ")("User") = ""
  End If
  '认证失败
  Response.Cookies(CacheName&"RZ")("Code") = ""
  Response.Cookies(CacheName&"RZ")("User") = ""
  Call WRMPS.ErrView("·邮箱认证失败<meta http-equiv=refresh content='1;URL=User_RZ.asp'>",0)
  Call DBConnEnd()
  Call ClassEnd()
%>