<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
If is_ot_user=1 then
Response.Redirect ""&ot_lostpasswordurl&""
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查找密码-<% =strSiteName%></title>
<meta name="Keywords" content="重庆信息网" />
<meta name="Description" content="重庆信息网" />
<link href="imger/css.css" type="text/css" rel="stylesheet">
</head>
<body>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					Dim rdsAffiche
					Dim sqlAffiche
					Dim intAfficheCot
					Dim intAfficheCount
					Dim strAfficheSubject
          
					intAfficheCot = 5
					set rdsAffiche = Server.CreateObject("ADODB.Recordset")
					sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr><%intAfficheCount = intAfficheCount + 1
							if intAfficheCount > intAfficheCot then exit do
							rdsAffiche.MoveNext 
					loop
                    else
                    %>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche = nothing
                    %>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="imger/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      Dim rdsInfo1
                      Dim sqlInfo1
                      Dim intInfoCount1
                      Dim strInfoClass1
                      Dim strTopic1
                      
                      set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
                      sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,topic,pic,color,CreateTime From Dat_Information Where State = 1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							pic=rdsInfo1("pic")
							strcolor=rdsInfo1("color")
							strsjnew=rdsInfo1("CreateTime")
							strsj1new=FormatTime(strsjnew,6)
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end  if%></a>
</td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1 = nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><b></td>
          </tr>
          <tr>
            <td><table cellSpacing="0" cellPadding="0" border="0">
					<tr>
						<td width="587" height="32" background="images/vxinxi.gif" align="center">
<font color="#000080"><b>查找密码</b></font></td>
					</tr>
				</table>
				<table cellSpacing="1" cellPadding="0" width="100%" bgColor="#f1f1f1" border="0">
					<tr>
						<td bgColor="#ffffff">
<table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
            <tbody>
              <tr>
               <td vAlign="top" width="100%" align="center"><%
		if UCase(Request.Form("Oper")) = "FINDPWD" then
			Dim rdsMember    	'/创建会员账号访问对象/
			Dim sqlMember       '/创建SQL语句/
			Dim strMember   	'/会员账号/
			Dim strPassword  	'/管理密码/
			Dim strEmail
			Dim strContent
			Dim jmlSendEmail

			strMember = changechr(Request.Form("Member"))
sjmail=IsObjInstalled("JMail.Message")
			set rdsMember = Server.CreateObject("ADODB.Recordset")
			sqlMember = "Select * From Dat_Member Where Member = '"& strMember &"'"
			rdsMember.Open sqlMember,Conn
			if not rdsMember.EOF then
				strPassWord = rdsMember("Password")
				strEmail = rdsMember("Email")
				strContent = "您在"& strSiteName &"的会员登陆密码为："& strPassword &""
If sjmail=false Then
strMsg	= "不支持Jmail邮件发送组件，不能使用此功能！"
else


'----------
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
JMail.ContentType = "text/html"
Jmail.Silent =true
Jmail.Priority = 1                         '高优先级
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform                    '指定发件人的email
Jmail.MailDomain =maildom
Jmail.FromName =""&strSiteName&""                '指定发件人的姓名
Jmail.Subject ="您在 "& strSiteName &" 会员密码找回邮件"            ' 邮件标题
Jmail.AddRecipient ""&strEmail&""
Jmail.Body =strContent
Jmail.Send(mailsmtp)
JMail.Close()
Set Jmail=nothing
'----------

				
				strMsgTitle = "找回密码成功"
				strError = False
				strMsg	= "找回密码成功，密码已发往您注册时填写的E-Mail："&strEmail&"，请注意查收..."
				strGoFile = ""& strSysUrl &"index.asp"
end if
				Call ShowMessage()
			else
				Response.Write "<script>alert(""\您输入的会员帐号不存在，请重新输入！"");window.location='FindPwd.asp';</script>"
			end if
			rdsMember.Close
			set rdsMember = nothing
		else
		%>
                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td align="center" valign="top" width="100%"><table width="100%" border="0" cellpadding="0" cellspacing="0">
		      <tr> 
		        <td valign="top" width="100%" align="center">
		        <br>
			<script language="javascript">
			//检验表单的合法性
			function CheckIfEnglish(String)
			{ 
			    var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_";
			     var i;
			     var c;
			     for( i = 0; i < String.length; i ++ )
			     {
			          c = String.charAt( i );
				  if (Letters.indexOf( c ) < 0)
				     return false;
			     }
			     return true;
			}
			function FindPwdForm() {
				if (document.FindPwd.Member.value == "") {
					alert("\请输入您的会员帐号！");
					document.FindPwd.Member.focus();
				}
				else if (!CheckIfEnglish(document.FindPwd.Member.value)) {
					alert("\您输入的会员帐号不符合规范！");
					document.FindPwd.Member.focus();
				}
				else if ((document.FindPwd.Member.value).length<4) {
					alert("\会员帐号至少4位！");
					document.FindPwd.Member.focus();
				}
				else {
			        return true;
			    }
			    return false;
			}
			</script>
          <table border="0" width="90%" cellspacing="1" cellpadding="0">
          <form method="post" action="FindPwd.asp" name="FindPwd" OnSubmit="return FindPwdForm()">
          <input type="hidden" name="Oper" value="FindPwd">          
            <tr>
              <td width="100%" height="30" bgcolor="#E7EFEF" align="center">请输入您的会员帐号：&nbsp;<input type="text" name="Member" maxlength="15" class="face">&nbsp;<input type="submit" name="Submit" value="查找密码" class="button"></td>
            </tr>
          </form>
          </table>
          <br>
		        </td>
		      </tr>
		    </table></td>
                  </tr>
                </table><%end if%>
               </td>
              </tr>
            </tbody>
            </table>
</td>
					</tr>
				</table></td>
          </tr>
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
