Web应用程序开发教程——ASP+SQL Server第08章

创建一个用户信息表Users
USE UserMan GO CREATE TABLE Users 修改 Admin 用户的密码 Admin 用户 ( UserId Int Primary Key IDENTITY, 系 统 UserName Varchar(50) NOT NULL, 用 创建、修改和删除普通用户信息 户 UserPwd Varchar(50) NOT NULL, 信 息 普通用户 Ename Varchar(50), 管 修改自身的用户名和密码 理 Email Varchar(50) ) GO INSERT INTO Users (UserName, UserPwd, Ename, Email) VALUES('Admin', 'Admin', '', '') GO
系统功能分析及数据库设计 设计用户登录模块 限制普通用户的权限 设计系统主界面 设计用户管理模块 添加和修改用户模块 设计删除用户模块 设计修改密码模块 设计退出登录模块
系统功能分析及数据库设计
用户管理功能模块的关系 创建一个数据库UserMan
CREATE DATABASE UserMan GO
设计用户登录模块
'=============连接数据库=============== 'Server对象的CreateObject方法建立Connection对象 Set Conn=Server.CreateObject("ADODB.Connection") 'Driver表示ODBC驱动程序 'Server表示数据库服务器名称 'UID表示用户账号 'PWD表示用户密码 'Database表示在数据库服务器上的一个Database名称 Conn.ConnectionString="driver={SQL Server};server=127.0.0.1;UID=sa;PWD=sa;Database=UserMan" '连接数据库 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) & "'"
Web应用程序开发教程
授课教师： 职务：
第8章 常用ASP实例。 这些实例都是以 ASP + SQL Server为基础设 计开发的，具体 较高的实用价值。
本章知识点
用户管理及用户登录 简易网上论坛 网站流量统计系统 网络投票系统
8.1 用户管理及用户登录
设计用户登录模块
'=============身份验证=========================== 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") End If End If End If End If '经过登录不成功，则画出登录表单MyForm If Not Session("Passed") Then %>
限制普通用户的权限
为了判断用户的身份IsAdmin.asp脚本：
<% If Session("UserName") <> "Admin" Then Response.Write("不是Admin用户，没有此权 限") Response.End End If %>
设计系统主界面
Index.asp将根据不同类型的用户显示不同的界面
<!-- #include file=“ChkPwd.asp” --> …… <% '如果登录成功，则根据用户类型决定显示内容 If Session("Passed")=True Then Response.Write("登录成功，" & Session("UserName") & "，欢迎光临 <BR><BR><BR><center>") If Session("UserName") = "Admin" Then Response.Write("<a href=UserList.asp>用户管理</a> <a href=PwdChange.asp?UserId=" & Session("UserId") & " onclick=""return newwin(this.href)"">修改密码</a> <a href=logout.asp>退出登录</a>") Else Response.Write("<a href=PwdChange.asp?UserId=" & Session("UserId") & "onclick=""return newwin(this.href)"">修改密码</a> <a href=logout.asp>退 出登录</a>") End If End If %>
设计用户登录模块
<% '如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证 If IsEmpty(Session("Passed")) Then Session("Passed") = False End If '如果Session("Passed")=False,则表示没有通过身份验证 If Session("Passed")=False Then '读取从表单传递过来的身份数据 UserName = Request.Form("UserName") UserPwd = Request.Form("UserPwd") If UserName = "" Then Errmsg = "请输入用户名和密码" Else