sendpass.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 113 行

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/email.asp"-->
<!--#include file="inc/NC_MD5Cls.Asp"-->
<%
Dim Founderr
Dim useremail
Dim topic
Dim mailbody
Dim sendmsg
Dim answer
Dim repassword
Dim username
Dim password
Dim NC_Encode
Dim NewCloud_Ads
Dim rs
Dim sql
Dim Errmsg
Dim Sucmsg
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
SendPass

Public Sub SendPass()
	Founderr = False
	Set NC_Encode = New MD5Encode
	Newasp.LoadTemplates ("")
	Set NewCloud_Ads = New Adcolumn_Cls
	Set Rs = Server.CreateObject("adodb.recordset")
	NowStats = "找回密码"
	HtmlTitle = "找回密码"
	TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
	TempFootStr = Newasp.mainhtml(4)
	Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
	HtmlTempStr = TempTopStr
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	If CInt(Newasp.Setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
	Response.Write HtmlTempStr
	TempFootStr = Replace(TempFootStr, "{$FootMeun}", Newasp.mainset(11))
	TempFootStr = Replace(TempFootStr, "{$Width}", Newasp.mainset(0))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
	Response.Write "<TABLE width="""
	Response.Write Newasp.mainset(0)
	Response.Write """ class=tableBorder cellSpacing=0 cellPadding=0 align=center border=0>"
	Response.Write " <TR>"
	Response.Write " <TH width=""75%"">找回密码"
	Response.Write "</TH></TR>"
	Response.Write " <TR>"
	Response.Write " <TD height=300 class=Border2 align=center>"
	Founderr = False
	If Founderr Then
		Response.Write "<script>alert('" & Errmsg & "');history.go(-1)</script>"
	Else
		If Request("action") = "step1" Then
			Call step1
		ElseIf Request("action") = "step2" Then
			Call step2
		ElseIf Request("action") = "step3" Then
			Call step3
		Else
			Call main
		End If
		If Founderr Then Response.Write "<script>alert('" & Errmsg & "');history.go(-1)</script>"
	End If
	Response.Write "</TD></TR></TABLE>"
	Response.Write TempFootStr
End Sub

Private Sub step1()
	If Request("username") = "" Then
		Founderr = True
		Errmsg = Errmsg + "请输入您的用户名。"
		Exit Sub
	Else
		UserName = Replace(Request("username"), "'", "")
	End If
	If CInt(Newasp.Setting(13)) = 1 Then
		Set Rs = Newasp.Execute("Select * from [NC_User] where username='" & UserName & "'")
	Else
		Set Rs = Newasp.Execute("Select * from [NC_User] where username='" & UserName & "'")
	End If
	If Rs.EOF And Rs.bof Then
		Founderr = True
		Errmsg = Errmsg + "您输入的用户名并不存在，请重新输入。或者由于该系统不支持邮件发送，只能通过联系站长获得密码。"
	Else
		If Rs(13) = "" Or IsNull(Rs(13)) Then
			Founderr = True
			Errmsg = Errmsg + "该用户没有填写密码问题及答案，只有填写的用户方能继续。"
		Else
			Response.Write "<form action=""sendpass.asp?action=step2"" method=""post""> "
			Response.Write "<table cellpadding=4 cellspacing=1 align=center class=tableBody>"
			Response.Write " <tr>"
			Response.Write " <th valign=middle colspan=2 align=center height=25>取回密码（第二步：回答问题）</th></tr>"
			Response.Write " <tr>"
			Response.Write " <td valign=middle class=Border2><b>问