<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostEmail.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If Request.Form ("username")="" or RegExpTest("[^A-Za-z0-9]",Request.Form ("username")) Then
	ef=True
	ec="会员名没有写/或会员名中有非法字符！"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent where username='"&Request.Form("username")&"'"
		ds.Open Sql,conn,1,1
if ds.eof then
	ef=True
	ec="代理不存在!"
end if
end if

if not ef then
dim Subject,body
EmailAgentFindPass
ret=Send2Mail(conn,ds("username"),Subject,body)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>查找密码
<%=htmlwrite("html6")%>
<br>

  <table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC">
    <tr>
      <td width="9%" height="30" rowspan="2" bgcolor="#FFFFFF"><table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
          <tr>
            <td height="75">　查找密码的邮件已自动发送到：<%=ds("email")%>，如果您五分钟后仍未收到邮箱，请您<a href="/style/info/contact.asp"><font color="#0000FF">联系我们</font>。</a></td>
          </tr>
      </table></td>
    </tr>
  </table>
<br>
<br>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
