Web应用程序开发教程——ASP+SQL Server 教学课件 姜卫 何苗 李晓黎 第08章.ppt

《Web应用程序开发教程——ASP+SQL Server 教学课件 姜卫 何苗 李晓黎 第08章.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Web应用程序开发教程授课教师：职务：第8章常用ASP应用实例课程描述本章将介绍几个常用的ASP实例。这些实例都是以ASP+SQLServer为基础设计开发的，具体较高的实用价值。本章知识点用户管理及用户登录简易网上论坛网站流量统计系统网络投票系统8.1用户管理及用户登录系统功能分析及数据库设计设计用户登录模块限制普通用户的权限设计系统主界面设计用户管理模块添加和修改用户模块设计删除用户模块设计修改密码模块设计退出登录模块系统功能分析及数据库设计用户管理功能模块的关系创建一个数据库UserManCREATEDATABASEUserManGO创建一个用户信息表UsersUS

2、EUserManGOCREATETABLEUsers(UserIdIntPrimaryKeyIDENTITY,UserNameVarchar(50)NOTNULL,UserPwdVarchar(50)NOTNULL,EnameVarchar(50),EmailVarchar(50))GOINSERTINTOUsers(UserName,UserPwd,Ename,Email)VALUES('Admin','Admin','','')GO设计用户登录模块<%'如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证IfIsEmpty(Session("Pa

3、ssed"))ThenSession("Passed")=FalseEndIf'如果Session("Passed")=False,则表示没有通过身份验证IfSession("Passed")=FalseThen'读取从表单传递过来的身份数据UserName=Request.Form("UserName")UserPwd=Request.Form("UserPwd")IfUserName=""ThenErrmsg="请输入用户名和密码"Else设计用户登录模块'=============连接数据库==============='Server对象的CreateObject方

4、法建立Connection对象SetConn=Server.CreateObject("ADODB.Connection")'Driver表示ODBC驱动程序'Server表示数据库服务器名称'UID表示用户账号'PWD表示用户密码'Database表示在数据库服务器上的一个Database名称Conn.ConnectionString="driver={SQLServer};server=127.0.0.1;UID=sa;PWD=sa;Database=UserMan"'连接数据库Conn.Open'============从表Users中读取用户数据=========

5、====='定义Recordset对象Setrs=Server.CreateObject("ADODB.Recordset")'设置Connection对象的ConnectionString'设置rs的ActiveConnection属性，绑定到连接Setrs.ActiveConnection=Conn'设置游标类型rs.CursorType=3'打开记录集rs.Open"SELECT*FROMUsersWHEREUserName='"&Trim(UserName)&"'"设计用户登录模块'=============身份验证========================

6、===Ifrs.EOFThenErrmsg="用户不存在"ElseIfUserPwd<>rs.Fields("UserPwd")ThenErrmsg="密码不正确"Else'登录成功Errmsg=""Session("Passed")=TrueSession("UserName")=rs.Fields("UserName")Session("UserId")=rs.Fields("UserId")EndIfEndIfEndIfEndIf'经过登录不成功，则画出登录表单MyFormIfNotSession("Passed")Then%>限制普通用户的权限为了判断用户的身份I

7、sAdmin.asp脚本：<%IfSession("UserName")<>"Admin"ThenResponse.Write("不是Admin用户，没有此权限")Response.EndEndIf%>设计系统主界面Index.asp将根据不同类型的用户显示不同的界面……<%'如果登录成功，则根据用户类型决定显示内容IfSession("Passed")=TrueThenResponse.Write("登录成功，"&Session("UserName")&"，欢迎