login.asp

留言簿毕业设计用ASP和SQL2000开发的能够链接

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK href="../pic/home.css" type=text/css rel=stylesheet>
<%
  '如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证
  If IsEmpty(Session("UserName")) Then
    Session("UserName") = False
	ELSE IF IsEmpty(Session("UserPwd")) Then
    Session("UserPwd") = False
  End If
  end if

  '如果UserName是空，则转向login.htm
  If Session("UserPwd")=False  Then
	'读取从表单传递过来的身份数据
    UserName = Request.Form("UserName")
    UserPwd = Request.Form("UserPwd")
    
    If UserName = "" Then
      Errmsg = "请输入用户名和密码"
    Else    
	  '=============连接数据库===============
      'Server对象的CreateObject方法建立Connection对象
      Set Conn=Server.CreateObject("ADODB.Connection")
	  'Driver表示ODBC驱动程序
	  'Server表示数据库服务器名称
	  'UID表示用户账号
	  'PWD表示用户密码
	  'Database表示在数据库服务器上的一个Database名称
	  Conn.ConnectionString="driver={SQL Server};server=(local);UID=sa;PWD=13513343483;Database=学院人事管理系统"
	  '连接数据库
	  Conn.Open
	  '============从表Users中读取用户数据==============
      '定义Recordset对象
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置Connection对象的ConnectionString
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '打开记录集
	  rs.Open "SELECT * FROM Admin WHERE UserName='" & Trim(UserName) & "'"  
	  '=============身份验证===========================
	  If rs.EOF Then  
	    Errmsg = "用户不存在"
   	  Else
	    If UserPwd <> rs.Fields("UserPwd") Then
	      Errmsg = "您的密码不正确，请重新输入"
        Else  '登录成功	
		Response.Redirect"del.asp"      
           
	    End If
	  End If
    End If
  End If
  
  If Not Session("Passed") Then  
%><style type="text/css">
<!--
body {
	background-image: url(../pic/backcolor.gif);
}
.style1 {font-size: 18px}
.style2 {font-size: 16px}
-->
</style>
                <tr>
                  <td width="185" bordercolor="#FFFFFF" background="../pic/backcolor.gif" bgcolor=#ffffff>
                    <table width="92%" cellspacing="5" bgcolor="#FFFFFF">
                    <form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
                      <p align="center"><br>
                        </p>
                      <table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                          <td height="43" background="../pic/backcolor.gif"><div align="center"><span class="style2">留言板管理员登陆</span></div></td>
                        </tr>
                        <tr>
                          <td height="43" background="../pic/backcolor.gif"> <div align="center"><%=Errmsg%>&nbsp;</div></td>
                        </tr>
                        <tr>
                          <td background="images/backcolor.gif"><table width="100%" align="center" cellspacing="5" background="../pic/backcolor.gif" bgcolor="#FFFFFF">
                            <tr>
                              <td align=right background="../pic/backcolor.gif">用户名：</td>
                              <td background="../pic/backcolor.gif"><input name="UserName" value="小麦子" size="12" maxlength="12" ></td>
                            </tr>
                            <tr background="images/backcolor.gif">
                              <td align=right background="../pic/backcolor.gif">密&nbsp;&nbsp;码：</td>
                              <td background="pic/backcolor.gif"><input name="UserPwd" type=password id="UserPwd" size="12" maxlength="12"></td>
                            </tr>
                            <tr align=center background="../pic/backcolor.gif">
                              <td height="30" colspan="2">
                                <input name="submit" type="image" src="../pic/buttonLogin.gif" align="middle" width="52" height="18">
                              <a href='javascript:ClearMyForm()'><img src="../pic/buttonClear.gif" alt="清除" name="clear" width="52" height="18" border="0" align="middle"></a> </td>
                            </tr>
                          </table></td>
                        </tr>
                      </table>
                      <p align="center" class="style1"><a href="admin" target="_parent">增加系统管理员 </a><br>
                        <br>
                        默认管理员：小麦子 密码：13080230284
                      </p>
                      <p align="center">&nbsp;</p>
                    </form>
                  <%
    Response.End
  End If
%>