📄 admin.asp

📁 商务网站,信息分类,可以搜索加上ACCESS数据库
💻 ASP
字号:
<%Option Explicit%>
<!--#include file="con-the-hhlong.asp"-->

<%
dim objRS,sql
dim name,pwd

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    name = Request.Form("name")
    pwd  = Request.Form("pwd")
    
    if Trim(name) = "" or Trim(pwd) = "" then
        Response.Write("<font color=""red"">请填写帐号和密码！</font><br>")
    else
        Set objRS = Server.CreateObject("ADODB.RecordSet")
        sql = "password"
        objRS.Open sql, objConn, 3, 1
        if objRS.eof then
            response.write("<font color=red>警告：</font><font color=blue>密码验证系统出错，请马上修复！</font>")
            Response.End
        end if
        if (objRS("name") = name) and (objRS("pwd") = pwd) then
            Session("iswelcome") = TRUE
            response.write("登陆成功！正在载入页面，请稍等……")
        else
            Session("iswelcome") = FALSE
            response.write("<font color=""red"">帐号或密码错误！</font>")
        end if
        Set objRS = nothing
        if Session("iswelcome") = TRUE then
            objConn.Close
            Set objConn = nothing

            response.write("<form name=""lmsearchform"" action=""2008admin/admdefault.asp"" method=""GET"" target=""_blank""></form>")

            response.write("<script language=""JavaScript"">lmsearchform.submit();window.close()</script>")
            response.end
        end if
    end if
end if
%>


<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>管理员登陆</TITLE>
<style type="text/css">
<!--
.p108 {  font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 10.8pt}
a:link {  font-family: "宋体"; font-size: 9pt; color: blue; text-decoration: none}
a:visited {  font-family: "宋体"; font-size: 9pt; text-decoration: none; color: blue}
a:hover {  font-family: "宋体"; font-size: 9pt; color: blue; text-decoration: underline}
-->
</style>
</HEAD>
<BODY onload="window.focus()" bgcolor="#FFFFFF">
<center>
  <table border="1" cellspacing="0" cellpadding="3" style="font-family: 宋体; font-size: 9pt" bordercolor="#FFFFFF" bordercolorlight="#006633" bordercolordark="#FFFFFF">
    <form action="admin.asp" method="POST" id=form1 name=form1>
  <tr>
    <td>管理员帐号：
    </td>
    <td>
      <input type="text" name="name" size="20">
    </td>
    <td>管理员密码：
    </td>
    <td>
      <input type="password" name="pwd" size="20">
    </td>
  </tr>
</table>
</center>
</div>
<br>
<center><input type="submit" value="    确定登陆    "></center>
</form>
<center>
  <font style="color: #000000; font-family: 宋体; font-size: 9pt"> <a href="http://www.com2008.com" target="_blank">COM2008 
  V3.0</a> &copy; 2005 All rights reserved</font><br>
</center>

</BODY>
</HTML>
⌨️ 快捷键说明

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