网站建设与开发实验指导书

9

WEE4_32.asp

<%function factorial(t) dim j j=1

for i=1 to t j=j*i next

factorial=j end function %>

<úta=cint(request.Form(https://www.bwwdw.com/plus/\

response.Write(\阶乘为：\%>

4、VBScript编程，实现计算并输出100至500间的水仙花数。（水仙花数是指该数的值与各位数字的立方和相等）； [参考代码]

<%for i=100 to 500 a=i\\100 b=i mod 100 b=b\\10 c=i mod 10

if i=a^3+b^3+c^3 then

response.Write(i & \ end if next%>

5、利用VBScript的数组，结合编程实现在页面中输出100个随机键位的大写字母，要求每行显示20个字母，各个字母间用一个空格分割。 [参考代码]

<%dim ran(100)

10

for i=1 to 100

ran(i)=chr(int(26*rnd())+65) next

for i=1 to 100

response.Write(ran(i) & \ if i mod 20=0 then

response.Write(\ end if next %>

五、思考题

（1）服务器端脚本和客户端脚本的主要区别是什么？ （2）Option Explicit指令的作用是什么？

（3）VBScript的Sub过程和Function过程有何不同？怎样定义Sub过程和Function过程？对Sub过程和Function过程的调用方式有什么不同？

实验五 JAVASCRIPT基础

实验项目性质：验证性 计划学时：2学时 一、实验目的

理解有关函数中变量的作用域和各类控制语句的功能；能灵活运用JavaScript中常用的几个对象的属性和方法；进一步加深理解Javascript与VBScript的异同。

二、预习与参考

回顾和复习以前C语言的基本语法知识；进一步加深理解Javascript语法知识。

三、实验器材

配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。

四、实验内容

1、使用JavaScript编程实现：根据时间段的不同，在网页中显示不同的问候语，若小时数在12点以前，则输出“早上好！”的问候语；若在12点至18点，则输出“下午好！”；18点以后输出“晚上好！”。

[参考代码]

2、运用JavaScript和windows对象setTimeout方法编程实现在网页中不断显示不同图片的动画效果； [参考代码]

3、在不同的情况下使用不同的消息对话框。当点击网页中的按钮后，首先用prompt弹出一个可以输入数字的对话框，要求从1到10中选择一个数字。当用户输入一个数字后，会用confirm弹出一个确认对话框，确认刚才所选择的数字，如果用户选择Cancel，会重复刚才的过程要求用户选择一个新的数字直到用户选择OK为止。如果选择OK，则判断用户所选择的数字是否为7，如果是，则用alert弹出获得一等奖的消息，如果不是，同样用alert弹出获得纪念奖的消息。 [参考代码]

五、思考题

（1）JavaScript和Java是一样的吗？JavaScript与VBScript、Jscript又有什么区别？ （2） JavaScript事件驱动中的事件是通过鼠标或热键动作引发的。它主要有哪些事件？

（3）使用JavaScript编写一个含有主菜单条的网页，实现当鼠标光标靠近某个菜单项时就会下拉出一个对应的子菜单来。

实验六 ASP对象的应用

实验项目性质：验证性 计划学时：2学时 一、实验目的

通过实验熟悉和掌握各ASP内建对象的功能和用法；掌握ASP环境的搭建，ASP文件的结构和执行；理解动态网站的基本设计技术；理解面向对象的程序设计。

二、预习与参考

ASP内置对象（第4章至第6章内容）。

三、实验器材：

配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。

四、实验内容：

1、试编写一ASP页面，利用Response对象的write方法，向客户端浏览器输出一个4行3列，宽度为1的表格,并在每个单元格中填入该单元格的行号和列号；

13

[参考代码]

<%for colnum=1 to 3%>

<%=rownum & \ <%next%> <%next%>

2、编写一个ASP页面，实现利用Response对象的write方法，向客户端输出一超级链接，该超链接的标题为“返回首页”，链接的地址为“index.asp”； [参考代码]

<%

response.write \返回首页\%>

3、设计用户登陆页面WEE6_login.htm。若用户名和口令均为guest，则导航到WEE6_guest.htm页面；若用户名为administrator，口令为haweofw，则导航到WEE6_manager.asp页面。若口令错误，则输出“口令错误！单击此处返回”的提示信息，“单击此处返回”为超链接，用户单击后，重新返回到登陆页面。用于表单处理并实现口令判断的页面为WEE6_dispose.asp。要求分别用表单的Post和Get方法，来分别实现该操作；

用户登录 用户名： 口 令： 确定 重填

[参考代码] WEE6_login.htm

用户登陆

14

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

四、实验内容：

1、利用SQL Server创建一个名为tx1的数据库。

（1）在数据库中创建名为t_student和t_users两个表。 表t_student结构：

字段名 t_number t_name t_sex t_phone t_jiguan t_class t_minzu 字段类型 char char char char char char char 字段宽度 2 8 2 12 40 5 8 说明 主键 允许空 允许空 允许空 允许空 允许空 允许空

表t_users结构：

字段名 UserName UserPassword UserLevel 字段类型 char char char 字段宽度 16 16 4 说明 主键 允许空 允许空

（2）向两个数据表添加一些记录。

2．数据的分页查询。

用Session对象和RecordSet对象的AbsolutePosition属性以一页或一条为单位来浏览查询结果。

[参考代码]

建立ASP查询，文件名为select.asp。

<%'设置每一页所要显示的记录条数，这里为9条。 Session(\

'用RecordSet对象的Open方法连接数据库

Set Session(\Constr=\Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \

Session(\

sql=\'利用RecordSet对象的Open方法创建记录集 Session(\

sql,Constr,adOpenkeySet,adlockreadonly,adcmdtext

%>

<%'输出表头，由于数据库中的字段名称为英文，因此，采用HTML标记输出%>

学号 姓名

20

性别 电话 籍贯 班级 民族

<%'记录开始时，当前数据指针在RecordSet对象的位置

Session(\'输出表中的数据

For j=0 To Session(\

Response.Write \ '记录结束时，当前数据指针在RecordSet对象的位置 Session(\'其中Session(\表示表的字段数 For i=0 To Session(\ '把当前的数据记录显示出来

Response.Write \ Next

Response.Write \

'移到下一条数据记录，然后判断是否到表尾，如果是，则把数据指针移到表头 Session(\ If Session(\

Session(\ Exit For End If Next

Response.Write \%>

<%'引入另一个文件，完成翻页功能%> link.as代码如下：

<%Response.Write \数据总条数：\'判断是否到表尾或记录解释否，如果是，则只给“上一页”加上超链接

If(Session(%unt) Then

Response.Write \上一页|\

Response.Write \下一页]\

'否则看是不是表头，如果是则只给“下一页”加上超链接

ElseIf((Session(\ Response.Write \上一页|\

Response.Write \下一页]\'其他情况，都加上超链接 Else

Response.Write \上一页|\

Response.Write \href=\下一页 ]\End If

Response.Write \开始记录：\，结束记录：\。\

%>

Query.asp代码如下：

21

学号 姓名 性别 电话 籍贯 班级 民族 <%

'将数据指针移到要求的位置，先移到头，再使用MoveNext往下移 If Request(\

if session(\ count=session(\ else

count=Session(\ end if

For i =1 To count

Session(\ If Session(\ Session(\ Exit For End If Next End If

'记录数据的起始位置。

Session(\'显示表中指定数据

For j=0 To Session(\

Response.Write \ Session(\ '显示当前数据记录。

For i=0 To Session(\

Response.Write \ Next

Response.Write \ Session(\ If Session(\ Session(\ Exit For End If NEXT

Response.Write \%>

22

3．数据的添加。 [参考代码]

首先创建一个添加数据的页面（INPUT.htm）：

学 生 基 本 数 据 录 入

添加记录文件d_ins.asp：

<%

on error resume Next

23

'取得用户输入的数据

t_name=request.form(\

t_number=request.form(\t_class=request.form(\t_sex=request.form(\

t_minzu=request.form(\t_phone=request.form(\t_jiguan=request.form(\'创建数据库的连接

Set conn = Server.CreateObject(\

strProvider = \Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \

conn.Open strProvider '添加时使用的字段

fields=array(\_phone\

values=array(t_name,t_number,t_class,t_sex,t_minzu,t_phone,t_jiguan)

sql = \INTO t_student(\& Join(fields,\VALUES ('\Join(values,\'添加数据

conn.Execute sql '判断执行是否成功

If conn.Errors.Count>0 Then

Response.Write \系统发生\个错误！\Else

Response.Write \数据添加成功！\End If

Set conn=nothing %>

4．数据的删除。 [参考代码]

建立删除和编辑页面,单击“删除”将执行该记录的删除操作，单击“编辑”，将编辑该记录。

在执行删除和编辑操作时，首先应该定位该记录。可以在前面介绍的分页显示数据库中记录的例子文件名（select.asp）改为 文件名(select2.asp)，代码加入： …

For i=0 To Session(\ '把当前的数据记录显示出来

Response.Write \ Next %>

\修改 <%

Response.Write \

24

'移到下一条数据记录，然后判断是否到表尾，是把数据指针移到表头 Session(\…

数据删除文件d_del.asp代码：

<%

'创建数据库的连接

Set conn = Server.CreateObject(\

strProvider = \Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \

conn.Open strProvider '取得被删除记录的标识

t_number=Request(\'设定执行的SQL语句

sql= \'执行删除操作

conn.execute sql

Response.Write \该记录已成功删除!\Set conn=nothing %>

5．数据的修改。 [参考代码]

建立数据修改页面文件（d_editshow.asp）：

<%'取得被编辑记录的标识

t_number=Request(\'创建数据库的连接

Set conn = Server.CreateObject(\

strProvider = \Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \

conn.Open strProvider '建立RecordSet对象

Set rs=Server.createObject(\'启动指定的数据表

rs.Open \ t_number ,conn,adOpenkeySet,adlockOptimistic '获得记录值

t_name=rs(\

t_number=rs(\t_class=rs(\t_sex=rs(\

t_minzu=rs(\t_phone=rs(\t_jiguan=rs(\%>

学 生 基 本 数 据 录 入

<%Set conn=nothing%>

建立数据修改程序，文件名为d_Edit.asp。代码如下：

<%

'取得用户输入的数据

26

t_name=Trim(request.form(\

t_number=Trim(request.form(\t_class=Trim(request.form(\t_sex=Trim(request.form(\

t_minzu=Trim(request.form(\t_phone=Trim(request.form(\t_jiguan=Trim(request.form(\'创建数据库的连接

Set conn = Server.CreateObject(\

strProvider = \Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \

conn.Open strProvider '设置修改时的SQL语句

field=array(\_phone\

value=array(t_name,t_number,t_class,t_sex,t_minzu,t_phone,t_jiguan)

sql=\For i=0 To ubound(field)

sql = sql & field(i) & \ If i <> ubound(field) Then sql=sql & \ Else

sql=sql & \t_number=\ End If Next

'执行修改操作

conn.Execute sql

If conn.Errors.Count>0 Then

Response.Write \系统发生\个错误！\Else

Response.Write \你的信息已成功修改!\End If

Set conn=nothing%>

五、思考题：

（1）什么是Web数据库？与传统数据库相比，Web数据库具有哪些优点？

（2）在ASP脚本程序中利用各种ADO对象及其相应的方法，可以有哪几种不同的途径来查询数据库，并返回所需的记录集？

实验九 留言板实例的制作

实验项目性质：设计性 计划学时：2学时 一、实验目的

通过实验掌握动态网站建设与开发的流程；熟练掌握在ASP对数据库的操作；了解软件项目开发的思想。

27

二、预习与参考

复习第1章、第2章、第9章、第10章和第11章内容。

三、实验器材

配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。

四、实验内容：

课内与课外结合，设计开发一个留言板动态网站应用程序，主要实现留言的签写与保存、留言的读取与显示、留言的回复和管理员对留言管理等功能。

要求使用ASP与SQL Server数据库相结合的技术来实现，要求采用数据库方式存储留言的内容。

要求提交：

1．系统设计方案，其中包括软件运行环境设计、系统模块设计和数据库结构设计。 2．设计完成的留言板动态网站。 3．网站的安装与使用说明书。

实验十 设计开发应用网站

实验项目性质：设计性 计划学时：4学时 一、实验目的

通过实例，使学生复习所学知识，融会和贯通课程的的基本概念、基本理论，更好地掌握基于ASP脚本环境的网站建设与开发技术；提高解决实际问题的能力。

二、预习与参考

本课程内容。

三、实验器材

配置网络环境的计算机系统，安装有IIS、Dreamweaver MX 2004、Access 2000/SQL Server 2000数据库系统等。

四、实验内容：

课内与课外结合，按照软件项目开发的思想，设计出一个动态应用网站实例，主题自定；要求体现一定的技术先进性和编程量，要求网站具有普通用户和管理用户不同的操作界面。

设计与开发内容包括网站策划、内容模块设计、数据库设计、网站页面链接设计、代码设计和网站测试等。

要求提交：

1．系统设计方案，其中包括软件运行环境设计、系统模块设计和数据库结构设计。 2．设计完成的动态应用网站。 3．网站的安装与使用说明书。

28

本文来源：https://www.bwwdw.com/article/27i.html