📄 password2.asp

📁 网上新闻调查发布系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
dim GetCode,valicode 
GetCode=int(request("GetCode"))
valicode=int(Session("GetCode")) 
if  GetCode<>valicode then 
response.write ("<script Language=Javascript>alert('您的验证码不正确!');location.href = 'javascript:history.go(-1)';</script>") 
response.end 
end if 
%>

<HTML>
<HEAD>
<TITLE>取回密码第2步</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	background-image: url(../images/bg.gif);
}
body,td,th {
	font-size: 12px;
}
.style1 {color: #FF0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.id; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' 项目为空.\n'; }
  } if (errors) alert('发现以下错误:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (未标题-1) -->
<TABLE WIDTH=300 BORDER=0 CELLPADDING=0 CELLSPACING=0>

	<TR>
		<TD><img src="../images/password.gif" width="500" height="50"></TD>
	</TR>
	<TR>
		<TD><form name="form1" method="post" action="password3.asp"><table width="498" height="128" border="0">
          <tr valign="baseline">
            <td colspan="2" scope="col"><div align="left">　　　　　　您的用户名
                <%= Request("username") %>
                <input name="name" type="hidden" id="name" value="<%= Request("username") %>">
            </div></td>
          </tr>
          <tr valign="baseline">
            <td width="186" height="32" valign="top" scope="row"><div align="right">您的密码提示问题是:</div></td>
            <td width="302" align="left" valign="baseline"><span class="style1">
              <!--#include file="myzb.asp" -->
              <%
Dim Recordset1
Dim Recordset1_numRows


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "SELECT * FROM usero where dengluming='"&Request("username")&"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
if Recordset1.eof then
  response.write ("<script Language=Javascript>alert('您输入的用户名不正确!');location.href = 'javascript:history.go(-1)';</script>") 
  else 
  while not Recordset1.eof 
response.write("")&(Recordset1("mimawenti")&"<p>")
Recordset1.movenext
  wend
end if


%>
            </span></td>
          </tr>
          <tr>
            <td colspan="2"><div align="center">
              问题回答:
                  <input name="hd" type="text" id="问题回答" size="40">
              </div></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><input name="Submit" type="submit" onClick="MM_validateForm('hd','','R');return document.MM_returnValue" value="提交">
              <input type="reset" name="Submit" value="重置"></td>
          </tr>
        </table>
		</form>												</TD>
	</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -