一聚教程网:一个值得你收藏的教程网站

热门教程

asp做邮箱激活登陆代码

时间:2022-07-02 22:46:05 编辑:袖梨 来源:一聚教程网

很多网站都用会员注册功能,注册成功后需要邮箱激活效果,今天我们就来做这种效果吧.
<%
Dim username,password
Dim repassword,answer
Dim Rs, SQL
If Trim(Request("username")) = "" Or Trim(Request("pass")) = "" Or Trim(Request("repass")) = "" Or Trim(Request("answer")) = "" Then
 Response.Write ""
Else
 username = Newasp.CheckBadstr(Request("username"))
 password = Newasp.CheckBadstr(Request("pass"))
 repassword = MD5(Newasp.Checkstr(Request("repass")))
 answer = MD5(Request("answer"))
 SQL = "SELECT password,UserGrade FROM [NC_User] WHERE username='" & username & "' And password='" & password & "' And answer='" & answer & "'"
 Set Rs = Server.CreateObject("adodb.recordset")
 Rs.open SQL, Conn, 1, 3
 If Rs.EOF And Rs.bof Then
  Response.Write ""
 Else
  If Rs("UserGrade") = 999 Then
   Response.Write ""
  Else
   Rs("password") = repassword
   Rs.Update
   '-----------------------------------------------------------------
   '系统整合
   '-----------------------------------------------------------------
   Dim API_Newasp,API_SaveCookie,SysKey
   If API_Enable Then
    Set API_Newasp = New API_Conformity
    API_Newasp.NodeValue "action","reguser",0,False
    API_Newasp.NodeValue "username",UserName,1,False
    Md5OLD = 1
    SysKey = Md5(API_Newasp.XmlNode("username") & API_ConformKey)
    Md5OLD = 0
    API_Newasp.NodeValue "syskey",SysKey,0,False
    API_Newasp.NodeValue "password",Request("repass"),0,False
    API_Newasp.SendHttpData
    Set API_Newasp = Nothing
   End If
   '-----------------------------------------------------------------
   Response.Write ""
  End If
 End If
 Rs.Close
 Set Rs = Nothing
End If
CloseConn
%>

热门栏目