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

📄 login.asp

📁 有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大
💻 ASP
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck
Set ClassSystem = New System
Set ClassCheck = New CheckUser
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
'//检查系统是否支持Cookies
Select Case Session("LoginError")
	Case Empty
	If Request.Cookies("cnetnet_gsbook") = Empty Then Session("LoginError")="你的系统已禁用Cookies,登陆将可能无法进行!" Else Session("LoginError")="系统Cookies已开启,可正常登陆!"
End Select
Select Case Request.ServerVariables("Request_Method")
	Case "POST"
		ClassCheck.GetLoginInfo Request.Form("AdminUser"),Request.Form("AdminPass"),Request.Form("SaveTime")
		ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
		ClassCheck.SetLoginCookies ClassCheck.AdminUser,ClassCheck.AdminPass,ClassCheck.SaveTime
		ClassCheck.GetBackUrl()
End Select
Select Case Request.Querystring("input")
	Case "Out"
		ClassCheck.SetLogOut()
		ClassCheck.GetBackUrl()
End Select
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top.asp -->
<div class="div"> 
  <table Class=TableTop border=0 cellpadding="0" cellspacing="0">
    <tr> 
    <td class=TableTop_Left rowspan="11">&nbsp;</td>
    <td colspan="2" align="center">&nbsp;</td>
  </tr>
  <tr> 
      <td colspan="2" class=TableTop_Right>&nbsp;
        <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><p>==== <strong>高 级 管 理 登 陆 入 口</strong> ====</p>
<form name="form1" method="post" action="Login.asp">
                <p> 管理账号: 
                  <input name="AdminUser" type="text" size="20" maxlength="20" class=put>
  </p>
                <p> 登陆密码: 
                  <input name="AdminPass" type="PassWord" size="20" maxlength="12" class=put>
                </p>
                <p>登陆信息:
                  <select name="SaveTime" class=put>
                    <option value="0" selected>======不保存======</option>
                    <option value="1">=====保存一天=====</option>
                    <option value="7">=====保存一周=====</option>
                    <option value="24">=====保存一月=====</option>
                    <option value="180">=====保存半年=====</option>
					<option value="360">=====保存一年=====</option>
                  </select>
                </p>
                <p> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
                  <input type="submit" name="Submit" value="=> 登 陆" class=put2>
                  <input type=reset name="Reset" value="取 消" onClick="javascript:history.back()" class=put3>
                </p>
</form>
              <p><font color="#0000FF">系统提示:</font><u><%=Session("LoginError")%></u></p></td>
          </tr>
        </table></td>
  </tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>

⌨️ 快捷键说明

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