WEE6_dispose.asp
<% username=request.Form(\ psword=request.Form(\
if username=\ response.Redirect(\WEE6_guest.asp\
else if username=\haweofw\ response.Redirect(\WEE6_manager.asp\ else
response.Write(\WEE6_login.htm'>单击此处返回！\ end if end if %>
4、试编写一HTML页面，在页面中输出3个多项选择题，题目自定，每个选择题均有A，B，C，D四个选项，当用户单击“交卷”按钮时，提交所作的题给WEE6_grade.asp页面，WEE6_grade.asp页面获得表单所提交的数据后，将数据直接输出给客户端，以显示用户对各题所作的选择；
[参考代码] WEE6_4.htm
WEE6_grade.asp
<%dim answer for m=1 to 3 answer=\
for n=1 to request.Form(\
answer=answer & request.Form(\ next
response.Write(answer) next %>
5、试编写一ASP页面，实现在浏览器中显示输出接受请求的服务器的IP地址、服务器的端口号、当前网页的真实物理路径、当前网页的虚拟路径和发出请求的客户方IP地址。 [参考代码]
<%
pagename=server.MapPath(request.ServerVariables(\response.Write(pagename)
servername=request.ServerVariables(\response.Write(servername)
serverport=request.ServerVariables(\response.Write(serverport)
serverip=request.ServerVariables(\response.Write (serverip) %>
五、思考题：
（1）什么是对象的属性和集合？什么是对象的方法？使用面向对象的方式开发应用程序主要有哪些好处？
（2）Application对象和Session对象有哪些相同和不同的地方？为什么Application对象有Lock方法和Unlock方法，而Session对象没有？
实验七 ASP组件的应用
实验项目性质：验证性 计划学时：2学时 一、实验目的
熟悉和掌握ASP中常用的，可以选择性安装的组件的用法与功能，掌握脚本对象中常
17
用子对象的功能与用法。
二、预习与参考
学生理解可安装组件的意义；熟悉常用组件的用法。
三、实验器材
配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。
四、实验内容：
1、Ad Rotator组件；
[参考代码]
1、Ad Rotator（主要由以下几个文件组成） advertise.asp
<%
set myad=server.CreateObject(\response.Write myad.getadvertisement(\%> adort.txt
edirect adredir.asp width 400 height 60 border 1 *
adpic/press.gif
http://localhost/chapter08/section5/teacher.asp 清华大学出版社 40
adpic/myschool.gif http://www.penctedu.cn 新思维网校 30
adpic/giga.gif
http://www.gigabyte.com.cn 技嘉中文网站 30
adredir.asp
<%
response.Redirect(request.QueryString(\%>
2、访问权限检测组件：站点中有一个manager.asp页面需要授权访问，仅允许用户名为：“03soft”用户，密码为：“123”的登陆用户访问。
[参考代码]
实现的步骤与方法：
1、在系统中创建用户名03soft，设置帐户密码：123 2、设置manager.asp只有03soft用户可以访问
3、设置一个mainpage.asp其中存放访问权限检测组件，只有Administrator
18
和03soft用户可以访问；
4、在IIS中，设置mainpage.asp页面的验证方式为“集成Windows验证”; 具
体见案例：
3、计数器组件
[参考代码]
<%
set mypagecounter=server.CreateObject(\mypagecounter.pagehit
if mypagecounter.hits=20 then
response.Write \恭喜你成为第
20位访问者')\
end if
response.Write \访问次数：\%>
4、文件存取组件
[参考代码]
<%
set fso=server.CreateObject(\filename=server.MapPath(\set txtstream=fso.createtextfile(filename) txtstream.writeline(\txtstream.close set fso=nothing
response.Write(\文件创建成功!\
%>
五、思考题：
（1）ASP提供的组件是什么？它与ASP的内置对象有什么相同和不同之处？ （2）若要利用Ad Rotator组件在网页中创建一个轮换显示的动态广告，需要创建哪几个有关文件？
实验八 数据管理的存取操作
实验项目性质：验证性 计划学时：2学时 一、实验目的
熟悉并掌握ASP中利用ADO实现对数据管理的存取访问方法。
二、预习与参考
掌握基础的数据库理论知识；熟悉基础的数据库结构化查询语言SQL；熟悉VBScript中的ADO对象。
三、实验器材
配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。
19