fpcheckanswer.asp

来自「手机商城 网上购物 电子商务网上购物 手机销售终端」· ASP 代码 · 共 74 行

<%
dim strSQL, rsObj
dim memberID, answer

memberID  =  RealString(Request.Form("memberID"))
answer =  RealString(Request.Form("answer"))
strSQL = "SELECT * FROM member WHERE memberID = '"&memberID&"' AND answer = '"&answer&"'"
'Response.Write strSQL
'Response.End
set rsObj = conn.execute (strSQL)


if rsObj.eof or err then
%>
	<script language = Javascript>
	<!--
	alert("     >>> 密码提示答案输入不正确 <<<\n\n如果您记不清了，请电话与我们联系以确认您的身份");
	window.history.go(-1);
	//-->
	</script>
<%
else
 
on error resume next

Set msg  =  Server.CreateObject("JMail.Message")
msg.silent  =  true
msg.Logging  =  true
msg.Charset  =  "gb2312"
msg.MailServerUserName  =  "[e-mail]" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword  =  "trfsoft"   '输入smtp服务器验证密码   （用户Email帐号对应的密码）
msg.FROM  =  "[e-mail]"        '发件人Email
msg.FromName  =  "特瑞飞软件"     '发件人姓名
msg.AddRecipient rsObj("email")    '收件人Email
msg.Subject  =  "获取您的密码，来自"&conWebSiteName&" "  '信件主题
msg.Body  =  "您的密码为:"&rsObj("password")&" ,您的用户名为："&memberID&"。"&conWebSiteName&",欢迎您经常访问。请记住我们的地址："&conWebSiteName&" "         '正文
msg.Send ("mail.trfsoft.com")               'smtp服务器地址（企业邮局地址）
set msg  =  nothing

%>
<TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1">
 <tr> 
    <td colspan = "2" height = "10"></td>
  </tr>                  
  <tr bgcolor = "#3979C6"> 
    <td bgcolor = "rgb(210,232,255)"> 
      <div align = "center">密码已发送，请查收</div>
    </td>
  </tr>
  <tr> 
    <td width = "42%" height = 60> 
      <div align = "center">密码已发送，请到<%=rsObj("email")%>接收您的新邮件。</div>
    </td>
  </tr>
  <tr> 
    <td> 
      <div align = "center"> 
        <input type = "submit" name = "Submit" value = " 关闭窗口 " onClick = "window.close()" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Submit1">
      </div>
    </td>
  </tr>
  <tr> 
    <td> 
      <p>注意 </p>
      <p>1、请记住您的密码，为了安全与保密，请从邮箱中删除该邮件。</p>
      <p>2、不要把密码保存在您的计算机中。</p>
      <p><br>
      </p>
    </td>
  </tr>
</table>
<%end if
%>