📄 chkpwd.asp

📁 ASP入门与提高实用教程源文件(上传网站)

💻 ASP

字号:

<%
  '如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证
  If IsEmpty(Session("Passed")) Then
    Session("Passed") = False
  End If

  '如果UserName是空，则转向login.htm
  If Session("Passed")=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=ustb;Database=News"
	  '连接数据库
	  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 Users WHERE UserName='" & Trim(UserName) & "'"  
	  '=============身份验证===========================
	  If rs.EOF Then  
	    Errmsg = "用户不存在"
   	  Else
	    If UserPwd <> rs.Fields("UserPwd") Then
	      Errmsg = "密码不正确"
        Else  '登录成功	      
          Errmsg = ""
	      Session("Passed") = True 
	      Session("UserName") = rs.Fields("UserName")
	      Session("UserId") = rs.Fields("UserId")
'	      Response.Write("登录成功，请进入<a href=index.asp>首页</a>")	      
	    End If
	  End If
    End If
  End If
  
  If Not Session("Passed") Then  
%>
<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE></HEAD>
<BODY>

<script Language="JavaScript">
function ChkFields() {
if (document.MyForm.UserName.value=='') {
window.alert ("请输入用户名！")
return false
}
return true
}
</script>

<p align="center"><font color="#0000FF" size="5" face="隶书">身 份 验 证</font></p> 

<p align="center"><font color="#800000">　<%=Errmsg%></font></p>
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
  <p align="center">用户名：&nbsp; <input type="text" name="UserName" size="20"></p>
  <p align="center">密&nbsp; 码：&nbsp; <input type="password" name="UserPwd" size="20"></p>
  <p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
<p align="center">　</p>

</BODY>
</HTML>
<%
    Response.End
  End If
%>

💿 文件大小 1008 K

👤 上传用户 qqpp2q

📂 所属分类 SQL Server

🏷️ 相关标签

#ASP #实用教程 #网站

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -