lostpass.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<!--#include file="../Inc/Cl_ClsEmail.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<%
Const ChannelID=0

If Request.Cookies("GetLostPass")("IsOK")="OK" Then
Call Cl.OutErr(0,Cl.Language.SelectSingleNode("//LostPass/IsOK").text)
End if
Dim rsLost,UserName,IsUseCode
Dim Action,Answer,Password,PwdConform,CodeStr
Dim ObjErr
Dim TemplateHTMLStr
Set ObjErr = Cl.Language.selectSingleNode("//User/ErrMsg")

IsUseCode	= "yes"  Rem 是否使用验证码 不使用改为“no”
Action		= Trim(request("Action"))
UserName	= Trim(request("UserName"))
Answer		= Trim(request("Answer"))
Password	= Trim(request("Password"))
PwdConform	= Trim(request("PwdConform"))
CodeStr		= Trim(request("LostPassCode"))
Call Template.Load(-2,5)
TemplateHTMLStr = Split(Template.Html,"@@@")
Select Case Action
Case "step1"
	TempStr=Step1
Case "step2"
	TempStr=Step2
Case "step3"
	TempStr=Step3
Case "step4"
	TempStr=Step4
Case Else
	TempStr=Step1
End Select
TemplateHTMLStr = Null
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; " & Cl.Language.SelectSingleNode("//LostPass/Title").text
Cl.Title= Cl.Web_info(1) & " &gt;&gt; " & Cl.Language.SelectSingleNode("//LostPass/Title").text

Response.write Template.ReplaceAllFlag(TempStr)
Set ObjErr = Nothing
CloseAllObj

Function Step1()
	Step1 = TemplateHTMLStr(0)
	Step1 = Replace(Step1,"{$isshowcode}",IsUseCode)
	If IsUseCode="yes" then
	Step1 = Replace(Step1,"{$getcode}",Replace(Cl.GetCode("LostPassCode"),Chr(34),"\"&Chr(34)))
	end if
End Function

Function Step2()
	if IsUseCode="yes" And Not Cl.CodeIsTrue(CodeStr,"LostPassCode") then
		Call Cl.OutErr(0,ObjErr.SelectSingleNode("//CheckNum").text)
	end if
	if UserName="" then
		Call Cl.OutErr(0,ObjErr.SelectSingleNode("//UserName").text)
	else
		if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"