《ASP网络程序设计与应用张应辉电子教案第8章节常用ASP程序模块开发》由会员分享，可在线阅读，更多相关《ASP网络程序设计与应用张应辉电子教案第8章节常用ASP程序模块开发（41页珍藏版）》请在金锄头文库上搜索。
1、第8章 常用ASP程序模块开发,本章内容要点 网站访问计数器模块开发实例 网站日历程序模块开发实例 网站注册程序模块开发实例 网站登陆程序模块开发实例 网站权限管理程序模块开发实例 本章小结,8.1.1 工程文件global.asa与应用对象Application,【例81】global.asa文件的基本框架 global.asa的代码清单如下： = sub Applicanion_OnStart Insert script to be executed when the application starts end sub sub Application_OnEnd Insert scrip
2、t to be executed when the application ends end sub sub Session_OnStart seeuin(UserName)= end sub sub Session_OnEnd session.contents.remove(UserName) end sub =,8.1.2 使用应用对象创建简单的网站计数器,【例82】设置Application_OnStart事件中的动作。 程序82的代码清单如下： = sub Applicanion_OnStare applicanion(PageCounter)=0 end sub sub Applic
3、anion_OnEnd Insrt script to be executed when the applicanion ends end sub sub Session_OnStart applicanion.lock applicanion(PageCounter)=applicanion(PageCounter)+1 applicanion.unlock session(UserName)= end sub sub Session_OnEnd session.contents.remove(UserName) end sub =,8.2 改进功能的网站计数器,上一节介绍的网站计数器实现起
4、来非常简单，只需要几行代码。一旦建立了application变量，它就一直存在于内存，直到网站关闭或这个网络应用被卸载，这可能是几个月或更长。所以它还是很实用的。然而，确实有这样的情况，使得计算机必须重新启动。这时，原先的Application变量就消失了，新建的Application的初始值为0，这样，就丢失了原来的访问数据，所以这里需要改进。,8.2.1 使用数据库的网站计数器,【例83】使用数据库的网站计数器。 = sub Applicanion_OnStare applicanion.lock dim sql,rs,conn on error resume next set conn=
5、server.createobject(ADODB.Connection) conn.openDSN=LearnAsp;uid=sql;PWD=sql sql=select VISIT_TIMES from PageCouner where PAGE_URL=default.asp set rs=con.execute(sql) if err0 or rs.fields.count1 then application（PageCounter）=-1 els application（PageCounter）=rs(VISIT_TIMES) end if set conn=nothing set
6、rs=nothing set sql=nothing application.unlock end sub sub Application_OnEnd application.lock If IsObject(conn)Then set rs=nothing con.close set conn=nothing set rs=nothing set sql=nothing End If,8.2.1 使用数据库的网站计数器,dim sql,rs,conn on error resume next set conn=server.createoject(ADODB.Connection) conn
7、.openDSN=LearnAsp;UID=sql;PWD=sql sql=update PageCounter set VISIT_TIMES=_ &application(PageCounter)& where PAGE_URL=default.sap conn.execute(sql) set conn=nothing set rs=nothing set sql=nothing application.unlock end sup sup Session_OnStart if application(PageCounter)-1 then application.lock applic
8、ation(PageCounter)=application（PageCounter）1 application.unlock session(UserName)= end if end sub sub Session_OnEnd session.contents.remove(UserName) end sub =,8.2.2 应用session变量控制会话,application.lock aoolication(PageCounter)=application(PageCounter)+1 session(PageCounter)=application(PageCounter) app
9、lication.unlock 要使一个变量在一次会话中得到控制，就是使用session变量。在Session_OnStart中添加下面的代码： 而在首页default.asp中，只需要将读取application变量改为读取session变量就行了。这样，无论访问者是第几次返回首页，它的访问次序都是不变的。,8.3 最基本的注册模块,8.3 最基本的注册模块,8.3.1 扩充UserInfo表,例85的程序代码清单如下： = -添加下面的列到LearnAsp表，注意此时不能用“not null” use LearnAsp go alter table UserInfo add REAL_NA
10、ME nvarchar（15） alter table UserInfo add GENDER bit alter table UserInfo add TEL varchar(19) alter table UserInfo add EMAIL varchar(30) alter table UserInfo add HOME_PAGE varchar(30) -更新原有的记录： update UserInfo set REAL_NAME=anAspLearner, GENDER=1,TEL=86-028-86778012,EMAIL=anAspLearnerwebsite.demo HOM
11、E_PAGE=http:/ Where USER_NAME=asp -将刚刚添加并被填充的相关列设置为不允许空 alter table UserInfo add REAL_NAME nvarchar（15）not null alter table UserInfo add GENDER bit not null alter table UserInfo add TEL nvarchar(19) not null alter table UserInfo add EMAIL nvarchar(30) not null alter table UserInfo add HOME_PAGE nvar
12、char(30) go =,8.3.1 扩充UserInfo表,【例86】重建UserInfo表 其程序代码段如下： = use master if exists select * from sysobjects where id=object_id(UserInfo) and objectproperty(id,NIsUserTable)=1 ) drop table UserInfo create table UserInfo ( USER_NAME nvarchar(15)not null, PASSWORD varchar(15)not null, REAL_NAMEnvarchar（
13、10）null, GENDER bit not null TEL varchar(19)not null EMAIL varchar(30) not null, HOME_PAGE barchar(30)not null default http:/ Primary key(USER_NAME) ) insert into UserInfo values(asp, aspAspLearner,1, 86-028-86778012, , ) go =,8.3.2 客户端页面SignUp.htm,【例87】客户端页面SigUp.htm 例87的程序代码清单如下： = 注册 用户注册 用户名: 确认密码: ,8.3.2 客户端页面SignUp.htm,-以下部分为您得私人材料， 承诺为您保密- 真实姓名: 性别: - 女 男 电话: Email: ,8.3.2 客户端页面SignUp.htm, 网址: =,8.3.3
