程序讨论版须知: 在使用老y文章管理系统中的一些问题!对非本程序方面的问题恕不解答!对Html,css等基础问题恕不解答!如果没有HTML基础请先自学HTML! 需要打开你网站才能看出问题的请留下网址,并请保留本站版权及友情链接,否则不予回复。 |
|
程序讨论
站长交流
链接交换
商业用户区
|
楼主Time:2016/5/25 0:36:21 | |
|
添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
<!--#include file="../Inc/conn.asp"--> <!--#include file="../Inc/md5.asp"--> <% If useroff=0 then Call Alert("网站目前已经关闭会员功能","../") if request("action") = "zhaohui" then call zhaohui() else call list() end if Sub zhaohui UserName = CheckStr(trim(request.form("UserName"))) email = CheckStr(trim(request.form("email"))) if UserName="" then Call Alert ("请输入用户名","-1") end if if email="" then Call Alert ("请输入电子邮箱","-1") End if Set rst = Server.CreateObject("ADODB.Recordset") rst.Open "Select [username],[email] From ["&tbname&"_User] where Email='" &email&"' and username='" &UserName&"'" , conn, 1,3 if rst.bof then Call Alert ("用户名或邮箱错误!","-1") End if rst.close set rst=nothing '------------生成随机密码------------- Randomize Do While Len(pass)<8 '随机密码位数 num1=CStr(Chr((57-48)*rnd+48)) '0~9 num2=CStr(Chr((90-65)*rnd+65)) 'A~Z num3=CStr(Chr((122-97)*rnd+97)) 'a~z pass=pass&num3&num1&num2 loop '------------生成随机密码------------- Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select [password] From ["&tbname&"_User] where username='" &UserName&"'", conn, 3,3 if not rs.bof then rs("PassWord")=md5(pass,16) rs.update end if rs.close set rs=nothing '-------------发送电子邮件----------------- zw="您好!<br>尊敬的用户 :"&UserName&" <br>您的临时新密码为<font color='red'>"&pass&"</font>,请尽快登录本站修改密码。<br><br>"&sitetitle&"<br>网站:"&siteurl SendEmail email,sitetitle&"-找回密码",zw,2 '--------------发送电子邮件---------------- Call Alert ("操作成功,新密码已经发送到您的邮箱!",Request.ServerVariables("HTTP_REFERER")) End Sub Sub list If LaoYID>0 then Response.Redirect SitePath End if %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta name="keywords" content="<%=Sitekeywords%>" /> <link href="<%=SitePath%>images/css<%=Css%>.css" type=text/css rel=stylesheet> <script type="text/javascript" src="<%=SitePath%>js/main.asp"></script> <title>找回密码</title> </head> <body> <div class="mwall"> <%=Head%> <%=Menu%><div class="mw"> <div style='margin:100px auto;'> <form action="<%=SitePath%>User/Getpass.asp?action=zhaohui" method="post" name=loginForm> <table width="390" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30" colspan="2" align="center">请填写你的用户名和注册时填写的邮箱,系统将把新密码发送到您的邮箱!</td> </tr> <tr> <td width="150" height="30" align="right">用户名:</td> <td align="left"><input name="Username" class="borderall" type="text" size="15" style="width:100px;height:15px;"></td> </tr> <tr> <td width="150" height="30" align="right">邮 箱:</td> <td align="left"><input name="email" class="borderall" type="text" size="15" style="width:100px;height:15px;"></td> </tr> <tr> <td height="30" colspan="2"><input type="submit" name="Submit" value="找回登录密码" class="borderall" style="height:19px;"/></td> </tr> </table> </form> </div> </div> <%=Copy%> </div> </body> </html> <% End Sub '-----------------------------------------------------------发送电子邮件 Sub SendEmail(Email,mailtitle,Mailbody,zj) On Error Resume Next E_Server = "smtp.qq.com 这里写发件服务器" ''发件服务器 E_ServerUser = "发件人邮箱登录名" ''登录用户名 E_ServerPass = "发件人邮箱登录密码" ''登录密码 E_SendManMail = "这里写发件人的邮箱地址" ''发件人邮件地址 E_SendManName = "这里写发件人的姓名" ''发件人姓名 If zj="" or zj=1 Then 'JMail方法 Set JMail = Server.CreateObject("JMail.Message") JMail.silent=true JMail.Logging = True JMail.Charset = "gb2312" JMail.MailServerUserName = E_ServerUser JMail.MailServerPassword = E_ServerPass JMail.ContentType = "text/html" JMail.Priority = 1 JMail.From = E_SendManMail JMail.FromName = E_SendManName JMail.AddRecipient Email JMail.Subject = mailtitle JMail.Body = Mailbody JMail.Send (E_Server) JMail.Close() Set JMail = Nothing Else 'IIS自带方法 Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject ("CDO.Configuration") objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = E_Server objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = E_ServerUser objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = E_ServerPass objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objConfig.Fields.Update() Set objMail.Configuration = objConfig objMail.Subject = mailtitle objMail.From = chr(34) & E_SendManName & chr(34) & E_SendManMail objMail.To = Email objMail.HTMLBody = Mailbody objMail.Send objConfig.Close() Set objConfig = Nothing objMail.Close() Set objMail = Nothing End If End Sub '-----------------------------------------------------------发送电子邮件结束 %> |
[Top] |
2 楼Time:2016/5/25 0:44:41 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
复制代码保存成 Getpass.asp
放到网站的user文件夹下。 然后自己到要用的地方加个超连接就可以了 |
[Top] |
3 楼Time:2016/6/25 21:54:57 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
根本不行啊
|
[Top] |
4 楼Time:2016/6/27 21:29:44 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
注意自己的网站空间是不是支持 JMail方法
支持的话,就把代码 SendEmail email,sitetitle&"-找回密码",zw,2 改成 SendEmail email,sitetitle&"-找回密码",zw,1 这个方面不要用QQ邮箱,可以用163之类的,同时你自己要去邮箱中开通 smtp 功能。 |
[Top] |
5 楼Time:2016/6/27 21:42:48 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
163邮箱 开通SMTP
登录你的163邮箱之后,点设置 - POP3/SMTP/IMAP 勾选 POP3/SMTP服务 保存即可。 注意:E_ServerPass = "发件人邮箱登录密码" ''登录密码 这个地方的一般开通了邮箱的 POP3/SMTP服务 后,邮箱要求你设置或是直接给了你一个授权码或者发信密码之类的, 这里的 发件人邮箱登录密码 就必需写给的这个密码。 邮箱公司这么设计就是怕你的网站源代码泄露,那别人就可以登录你的邮箱了,有了授权码就不会泄露登录密码,邮箱就保住了。 ------------------------------- IIS自带CDO.Message组件能用的话是可以用QQ邮箱的。 我的就是用这种方法。 |
[Top] |
6 楼Time:2016/7/5 22:02:22 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
Microsoft VBScript 编译器错误 错误 '800a0409'
未结束的字符串常量 /user/getpass.asp,行 20 Call Alert ("璇疯緭鍏ョ數瀛愰偖绠?,"-1") --------------------^ |
[Top] |
7 楼Time:2016/7/5 22:03:26 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
UserName = CheckStr(trim(request.form("UserName"))) email = CheckStr(trim(request.form("email"))) if UserName="" then Call Alert ("请输入用户名","-1") end if if email="" then Call Alert ("请输入电子邮箱","-1") 行 20 End if Set rst = Server.CreateObject("ADODB.Recordset") rst.Open "Select [username],[email] From ["&tbname&"_User] where Email='" &email&"' and username='" &UserName&"'" , conn, 1,3 if rst.bof then Call Alert ("用户名或邮箱错误!","-1") End if rst.close set rst=nothing |
[Top] |
8 楼Time:2016/7/6 23:53:42 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
你这是网页文件代码格式错误。
老Y是 gb2312 格式的。 你在保存的ASP文件的时候,不能保存 成 UTF-8格式的文件。 |
[Top] |
9 楼Time:2016/7/6 23:56:51 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
用记事本保存文件,一般是选择 ANSI编码 保存
|
[Top] |
10 楼Time:2016/9/14 17:47:28 | |
|
RE:添加 找回密码 功能,重置密码发送到邮箱,不知道能不能发表?
并没什么用吧,收不到找回邮件
|
51电视刷机网www.51tvrom.com提供全面的智能电视ROM固件下载、机顶盒固件下载、第三方固件下载、官方刷机升级救砖固件下载,覆盖主流的海信电视件,TCL电视固件,康佳电视固件,长虹电视固件,乐视电视固件,暴风TV固件等等品牌固件,体验一站式刷机升级救砖服务,体验到刷机带来的乐趣。 |
|
[Top] |