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

📄 index.asp

📁 这是一个ASP+VBScript+Access开发的网上家园源程序
💻 ASP
字号:
<!--#include file="..\include\md5_js.asp" -->
<!--#include file="..\config.asp" -->
<%
if request.Cookies("admin") <> "" then 
	response.redirect "admin_user.asp"
end if
%>
<html>
<head>
<BASE onmouseover=javascript:window.status='<%=Unit%>个人主页空间——您理想的网上家园!';return true>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=Unit%>>><%=softname%>>>用户登录</title>
<style type="text/css">
<!--
a:link {
	color: #333333;text-decoration:none
}
a:visited {
	color: #666666;text-decoration:none
}
a:active {
	color: #999999;text-decoration:none
}
A:hover {
	color: #FF0000;text-decoration:underline
	}
-->
</style>
</head>

<!--#include file="head.asp" -->
<!--#include file="NavBar.Asp" -->
<BODY bgcolor="#E1EBF4">
<div align="center">
  <center>
  <table border="0" width="750" style="border: 1 solid #000000" cellspacing="0" cellpadding="0" height="70%">
    <tr>
      <td width="100%">
         
        <form name=form1 method="POST" action="admin_user.asp">
          <div align="center">
            <center>
            <table border="0" width="80%" cellspacing="1" cellpadding="0" style="font-size: 9pt" height="98">
              <tr>
            <td width="38%" align="right" height="25"></td>
            <td width="62%" height="25"><b><font color="#008080" size="2">管理员登录</font></b></td>
              </tr>
              <tr>
            <td width="38%" align="right" height="25">用户名:</td>
            <td width="62%" height="25"><input type="text" name="username" size="33"></td>
              </tr>
              <tr>
            <td width="38%" align="right" height="25">密 码:</td>
            <td width="62%" height="25"><input type="password" name="password" size="33"></td>
              </tr>
              <tr>
            <td width="38%" align="right" height="42"></td>
              </center>
  </center>
            <td width="62%" align="right" height="42">
              <p align="left"><input type="button" value="确定" name="B1" onclick="check"> <input type="reset" value="重写" name="B2"> 
              <input type="button" value="取消" name="B3" onclick="VBScript:window.close"></td>
            </tr>
          </table>
        </div>
          <input type="hidden" name="pass" value="">
      </form>
  <center>
  <p> 
      </td>
    </tr>
  </table>
</div>
<!--#include file="../food.asp" -->
</body>
</html>
<Script language="VBScript">
sub check()
if len(form1.username.value) < 1 then
	msgbox "用户名没有填写!"
	exit sub
end if

if len(form1.Password.value) < 1 then
	msgbox "密码没有填写!"
	exit sub
end if

form1.pass.value = md5(form1.password.value)
form1.password.value = ""
form1.submit
end sub
</Script>

















⌨️ 快捷键说明

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