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

📄 login.asp

📁 系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助
💻 ASP
字号:
<!--#include file=conn.inc-->
<!--#include file=setup.asp-->
<HTML><HEAD><TITLE>留言本管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="images/css.css" rel=stylesheet type=text/css>
</HEAD>
<BODY background="images/bookbg.gif">
<%
if Request.Form.Count=0 then
%>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=315>
  <FORM action=login.asp  method=post>
  <TBODY>
  <TR>
    <TD  width=545>
      <P align=right> </P></TD>
    <TD width=10> </TD></TR>
  <TR>
    <TD  rowSpan=2 width=545>
      <TABLE border=0 cellPadding=0 cellSpacing=2 height=149 width="100%">
        <TBODY>
        <TR>
          <TD  colSpan=2 height=43>
            <DIV align=center><font face="黑体" style="font-size: 16pt">超 级 管 理 员 登 陆</font></DIV></TD></TR>
        <TR>
          <TD  height=31 width="35%">
            <DIV align=right>管理账号:</DIV></TD>
          <TD height=31 width="65%">&nbsp; 
          <INPUT class=input2 name=adminname size="20">   
          </TD></TR>  
        <TR>  
          <TD  height=19 width="35%">  
            <DIV align=right>管理密码:</DIV></TD>  
          <TD height=19 width="65%">&nbsp; 
          <INPUT class=input2 name=password   
            type=password size="20"> </TD></TR>  
        <TR>  
          <TD colSpan=2 height=38>  
            <DIV align=center><INPUT class=input2 type=submit value=超级登陆>   
            &nbsp;&nbsp;&nbsp;&nbsp; <INPUT class=input2 name=B1 type=reset value=重新来过>   
        </DIV></TD></TR></TBODY></TABLE></TD>  
    <TD background=images/leftbox8.gif height=70 vAlign=top width=10> </TD></TR>  
  <TR>  
    <TD background=images/leftbox8.gif vAlign=bottom width=10> </TD></TR>  
  <TR>  
    <TD background=images/leftbox4-3.gif height="1%" width=545> </TD>  
    <TD height="1%" width=10> </TD></TR></TBODY></FORM></TABLE></CENTER>
<center>
  <p style="line-height: 150%"><A href="http://gbook.365ye.com">Powered by <FONT color=#000000>GBook365</FONT>&nbsp;&copy; 
2001-2005</A><BR>
留言本程序由&nbsp;<a href=<%=url%>><%=homename%></a> 提供&nbsp;&nbsp;&nbsp;版权所有:<a href="http://www.365ye.com">  
365YE.COM
</a></p>
</center></BODY></HTML>

<%
else
Dim username
dim password
username=Request.FORM("adminname")
password=Request.FORM("password")
keyword=request("keyword")
page=request("page")
if username=admin and password=pass  then
response.cookies("adminok")=true
response.redirect "admin.asp"
else
response.write "<script language=JavaScript>{window.alert('对不起,您不是系统管理员 !');window.location.href='javascript:history.go(-1)'}</script>"
end if
end if
%>

⌨️ 快捷键说明

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