<%@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">

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </TD>

						  </TR>

						</TBODY>

					  </TABLE>

</form>

		   <%

		End Sub



End Class

%>