⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 left.asp

📁 网上新闻调查发布系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="myzb.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("username"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="loginmenu.asp"
  MM_redirectLoginFailed="left.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_myzb_STRING
  MM_rsUser.Source = "SELECT dengluming, mima"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM usero WHERE dengluming='" & Replace(MM_valUsername,"'","''") &"' AND mima='" & Replace(Request.Form("mima"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<HTML>
<HEAD>
<TITLE>未标题-1</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
.mm_botton{
border-top: #c4cccc 3px double; 
border-right: #acb5b5 3px double; 
border-bottom: #6f7777 3px double;
border-left: #acb5b5 3px double; 
background: url(images/background_form_element.gif) #fefefe repeat-x; 
font:12px tahoma;
padding-top:2px;
padding-bottom:2px;
padding-left:2px;
padding-right:3px;
text-decoration: none;
color:#666666;
}

.mm_botton:link{
color:#666666;
}

.mm_botton:hover{
border-top: #aedf9a 3px double; 
border-right: #94da78 3px double; 
border-bottom: #6ab94b 3px double;
border-left: #94da78 3px double; 
text-decoration:none;
color:#999999;
}

<!--
body {
	background-image: url(images/bg.gif);
}
body,td,th {
	font-size: 12px;
}
a:link {
	text-decoration: none;
	color: #000000;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #0000FF;
}
a:active {
	text-decoration: none;
	color: #0000FF;
}
.style3 {color: #0000FF}
-->
</style>
<base target="main">
<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 == '');
}

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
</HEAD>
<BODY topmargin="0" leftmargin="0" oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (未标题-1) -->
<TABLE WIDTH=244 height="316" BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
	  <TD height="22"><img src="images/login.gif" width="244" height="22"></TD>
  </TR>
	<TR>
		<TD height="112" align="left" valign="top"><form name="form1" method="POST" action="<%=MM_LoginAction%>" target="_self">
		  <table width="238" border="0">
            <tr>
              <td><div align="right">用户名</div></td>
              <td><input name="username" type="text" id="用户名" size="17"></td>
            </tr>
            <tr>
              <td><div align="right">密 码 </div></td>
              <td><input name="mima" type="password" id="密码" size="17"></td>
            </tr>
            <tr>
              <th scope="row">&nbsp;</th>
              <td><input name="Submit" type="submit" class="mm_botton" onClick="MM_validateForm('username','','R','mima','','R');return document.MM_returnValue" value="进入">
              <input name="Submit" type="reset" class="mm_botton" value="重来"></td>
            </tr>
            <tr>
              <td colspan="2" scope="row"><div align="center"><img src="images/tx/66.gif" width="17" height="17"><a href="m.asp" target="mainFrame" onclick="window.open('user/xy.asp','callwindow','top=0,left=0,width=500,height=450,status=no,resizable=no,scrollbars=no')">注册新用户</a> <img src="images/tx/38.gif" width="17" height="17"><a href="m.asp" target="mainFrame" onclick="window.open('user/password.asp','callwindow','top=0,left=0,width=500,height=200,status=no,resizable=no,scrollbars=no')">忘记密码了</a></div></td>
            </tr>
          </table>
	    </form></TD>
	
	</TR>
	<TR>
	  <TD height="26"><img src="images/memu.gif" width="244" height="22"></TD>
  </TR>
	<TR>
		<TD align="left" valign="top"><table width="239" height="156" border="0">
          <tr>
            <td height="14" scope="row"><div align="center"><a href="wz/List.Asp?ClassID=1" target="mainFrame">行业新闻</a></div></td>
            <td><div align="center"><a href="wz/List.Asp?ClassID=5" target="mainFrame">关注热点</a></div></td>
          </tr>
          <tr>
            <td height="14" scope="row"><div align="center"><a href="wz/List.Asp?ClassID=2" target="mainFrame">政策法规</a></div></td>
            <td><div align="center"><a href="wz/List.Asp?ClassID=6" target="mainFrame">今日动态</a></div></td>
          </tr>
          <tr>
            <td height="14" scope="row"><div align="center"><a href="wz/List.Asp?ClassID=3" target="mainFrame">技术应用</a></div></td>
            <td><div align="center"><a href="wz/List.Asp?ClassID=7" target="mainFrame">商家名录</a></div></td>
          </tr>
          <tr>
            <td height="14" scope="row"><div align="center"><a href="wz/List.Asp?ClassID=4" target="mainFrame">财富之门</a></div></td>
            <td><div align="center"><a href="download.asp" target="mainFrame">资源下载</a></div></td>
          </tr>
          <tr>
            <td height="14" scope="row"><div align="center"><a href="forum.asp" target="mainFrame">金融论坛</a></div></td>
            <td><div align="center"><a href="#" target="_self"onClick="MM_popupMsg('您必须登陆才能留言.')">有话要留</a></div></td>
          </tr>
          <tr>
            <td height="21" scope="row"><div align="center"></div></td>
            <td><div align="center"></div></td>
          </tr>
        </table>												</TD>
	</TR>
</TABLE>
<!-- End ImageReady Slices --></BODY>
</HTML>

⌨️ 快捷键说明

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