/User/RegActive/index.asp

https://github.com/joechen2010/health · ASP · 89 lines · 77 code · 6 blank · 6 comment · 1 complexity · 0db5528e8f89b412a56622dfb5282e29 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%option explicit%>
  3. <!--#include file="../../Conn.asp"-->
  4. <!--#include file="../../KS_Cls/Kesion.MemberCls.asp"-->
  5. <%
  6. '****************************************************
  7. ' Software name:Kesion CMS 6.5
  8. ' Email: service@kesion.com . QQ:111394,9537636
  9. ' Web: http://www.kesion.com http://www.kesion.cn
  10. ' Copyright (C) Kesion Network All Rights Reserved.
  11. '****************************************************
  12. Dim KSCls
  13. Set KSCls = New UserReg
  14. KSCls.Kesion()
  15. Set KSCls = Nothing
  16. Class UserReg
  17. Private KS, KSUser
  18. Private Sub Class_Initialize()
  19. Set KS=New PublicCls
  20. Set KSUser=New UserCls
  21. End Sub
  22. Private Sub Class_Terminate()
  23. Call CloseConn()
  24. Set KS=Nothing
  25. Set KSUser=Nothing
  26. End Sub
  27. Public Sub Kesion()
  28. Call KSUser.Head()
  29. Call KSUser.InnerLocation("»áÔ±×¢²á¼¤»î")
  30. Dim UserName:UserName=KS.S("UserName")
  31. Dim CheckNum:CheckNum=KS.S("CheckNum")
  32. If KS.S("Flag")="Check" Then
  33. Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
  34. RS.Open "Select UserName,RndPassWord,Email,CheckNum,locked From KS_User Where UserName='" & UserName & "'",Conn,1,3
  35. If RS.Eof And RS.Bof Then
  36. rs.close:set rs=nothing
  37. Response.Write "<script>alert('¶Ô²»Æð£¬ÄúÊäÈëµÄÓû§Ãû²»´æÔÚ£¡');history.back();</script>":response.end
  38. else
  39. if rs("checknum")<>checknum then
  40. rs.close:set rs=nothing
  41. Response.Write "<script>alert('¼¤»îÂëÓÐÎó£¬ÇëÖØÐÂÊäÈ룡');history.back();</script>":response.end
  42. else
  43. rs("locked")=0
  44. rs.update
  45. Dim MailBodyStr,ReturnInfo
  46. MailBodyStr = Replace(KS.Setting(147), "{$UserName}", rs("UserName"))
  47. MailBodyStr = Replace(MailBodyStr, "{$PassWord}", rs("RndPassWord"))
  48. MailBodyStr = Replace(MailBodyStr, "{$SiteName}", KS.Setting(0))
  49. ReturnInfo=KS.SendMail(KS.Setting(12), KS.Setting(13), KS.Setting(14), KS.Setting(0) & "-»áÔ±×¢²á³É¹¦", RS("Email"),rs("UserName"), MailBodyStr,KS.Setting(11))
  50. IF ReturnInfo="OK" Then
  51. ReturnInfo="<li>×¢²á³É¹¦!ÄúµÄÓû§Ãû:<font color=red>" & RS("UserName") & "</font>,Òѽ«Óû§ÃûºÍÃÜÂë·¢µ½ÄúµÄÐÅÏä!</li>"
  52. End If
  53. rs.close:set rs=nothing
  54. Response.Write "<script>alert('¹§Ï²Äú,Õ˺ż¤»î³É¹¦,ÄúÏÖÔÚ¿ÉÒÔÕý³£µÇ¼ÁË£¡');location.href='../User_main.asp';</script>":response.end
  55. end if
  56. end if
  57. End If
  58. %>
  59. <form name="myform" method="post" action="?Flag=Check" onSubmit="return CheckForm();">
  60. <table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  61. <tr class="Title">
  62. <td height="24" align="center" colspan="2">Óà »§ ¼¤ »î</td>
  63. </tr>
  64. <TR class="tdbg">
  65. <TD height=25 align="right">ÄúµÄÓû§Ãû£º</TD>
  66. <TD><input name="UserName" type="text" id="UserName" size="20" value="<%=UserName%>"></TD>
  67. </TR>
  68. <TR class="tdbg">
  69. <TD width="40%" height=25 align="right"> ÄúµÄ¼¤»îÂ룺</TD>
  70. <TD width="60%"><input name="CheckNum" type="text" id="CheckNum" size="20" value="<%=CheckNum%>"></TD>
  71. </TR>
  72. <TR class="tdbg">
  73. <TD colspan="2" height=42 align="center">
  74. <input name="Submit" type="submit" value="È·¶¨¼¤»î" style="padding:3px">
  75. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </TD>
  76. </TR>
  77. </TBODY>
  78. </TABLE>
  79. </form>
  80. <%
  81. End Sub
  82. End Class
  83. %>