asp做邮箱激活登陆代码

很多网站都用会员注册功能,注册成功后需要邮箱激活效果,今天我们就来做这种效果吧.
<%
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 "<script>alert('非法参数！');history.go(-1)</script>"
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 "<script>alert('您返回的用户资料不正确，非法操作！');history.go(-1)</script>"
Else
  If Rs("UserGrade") = 999 Then
   Response.Write "<script>alert('非法操作！必须和管理员联系取回密码！');history.go(-1)</script>"
  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 "<script>alert('您的密码成功激活，请登陆!');location.replace('./')</script>"
  End If
End If
Rs.Close
Set Rs = Nothing
End If
CloseConn
%>

补充：asp教程,ASP入门