/User/RegActive/index.asp
https://github.com/joechen2010/health · ASP · 89 lines · 77 code · 6 blank · 6 comment · 1 complexity · 0db5528e8f89b412a56622dfb5282e29 MD5 · raw file
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <%option explicit%>
- <!--#include file="../../Conn.asp"-->
- <!--#include file="../../KS_Cls/Kesion.MemberCls.asp"-->
- <%
- '****************************************************
- ' Software name:Kesion CMS 6.5
- ' Email: service@kesion.com . QQ:111394,9537636
- ' Web: http://www.kesion.com http://www.kesion.cn
- ' Copyright (C) Kesion Network All Rights Reserved.
- '****************************************************
- Dim KSCls
- Set KSCls = New UserReg
- KSCls.Kesion()
- Set KSCls = Nothing
-
- Class UserReg
- Private KS, KSUser
- Private Sub Class_Initialize()
- Set KS=New PublicCls
- Set KSUser=New UserCls
- End Sub
- Private Sub Class_Terminate()
- Call CloseConn()
- Set KS=Nothing
- Set KSUser=Nothing
- End Sub
- Public Sub Kesion()
- Call KSUser.Head()
- Call KSUser.InnerLocation("»áÔ±×¢²á¼¤»î")
- Dim UserName:UserName=KS.S("UserName")
- Dim CheckNum:CheckNum=KS.S("CheckNum")
- If KS.S("Flag")="Check" Then
- Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
- RS.Open "Select UserName,RndPassWord,Email,CheckNum,locked From KS_User Where UserName='" & UserName & "'",Conn,1,3
- If RS.Eof And RS.Bof Then
- rs.close:set rs=nothing
- Response.Write "<script>alert('¶Ô²»Æð£¬ÄúÊäÈëµÄÓû§Ãû²»´æÔÚ£¡');history.back();</script>":response.end
- else
- if rs("checknum")<>checknum then
- rs.close:set rs=nothing
- Response.Write "<script>alert('¼¤»îÂëÓÐÎó£¬ÇëÖØÐÂÊäÈ룡');history.back();</script>":response.end
- else
- rs("locked")=0
- rs.update
-
- Dim MailBodyStr,ReturnInfo
- MailBodyStr = Replace(KS.Setting(147), "{$UserName}", rs("UserName"))
- MailBodyStr = Replace(MailBodyStr, "{$PassWord}", rs("RndPassWord"))
- MailBodyStr = Replace(MailBodyStr, "{$SiteName}", KS.Setting(0))
- ReturnInfo=KS.SendMail(KS.Setting(12), KS.Setting(13), KS.Setting(14), KS.Setting(0) & "-»áÔ±×¢²á³É¹¦", RS("Email"),rs("UserName"), MailBodyStr,KS.Setting(11))
-
- IF ReturnInfo="OK" Then
- ReturnInfo="<li>×¢²á³É¹¦!ÄúµÄÓû§Ãû:<font color=red>" & RS("UserName") & "</font>,Òѽ«Óû§ÃûºÍÃÜÂë·¢µ½ÄúµÄÐÅÏä!</li>"
- End If
- rs.close:set rs=nothing
- Response.Write "<script>alert('¹§Ï²Äú,Õ˺ż¤»î³É¹¦,ÄúÏÖÔÚ¿ÉÒÔÕý³£µÇ¼ÁË£¡');location.href='../User_main.asp';</script>":response.end
- end if
- end if
- End If
- %>
- <form name="myform" method="post" action="?Flag=Check" onSubmit="return CheckForm();">
- <table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
- <tr class="Title">
- <td height="24" align="center" colspan="2">Óà »§ ¼¤ »î</td>
- </tr>
- <TR class="tdbg">
- <TD height=25 align="right">ÄúµÄÓû§Ãû£º</TD>
- <TD><input name="UserName" type="text" id="UserName" size="20" value="<%=UserName%>"></TD>
- </TR>
- <TR class="tdbg">
- <TD width="40%" height=25 align="right"> ÄúµÄ¼¤»îÂ룺</TD>
- <TD width="60%"><input name="CheckNum" type="text" id="CheckNum" size="20" value="<%=CheckNum%>"></TD>
- </TR>
- <TR class="tdbg">
- <TD colspan="2" height=42 align="center">
- <input name="Submit" type="submit" value="È·¶¨¼¤»î" style="padding:3px">
- </TD>
- </TR>
- </TBODY>
- </TABLE>
- </form>
- <%
- End Sub
-
- End Class
- %>