电子商务程序设计实验指导书.docx

电子商务程序设计实验指导书.docx

《电子商务程序设计实验指导书.docx》由会员分享，可在线阅读，更多相关《电子商务程序设计实验指导书.docx（27页珍藏版）》请在冰豆网上搜索。

电子商务程序设计实验指导书

《电子商务程序设计》

实验指导书

院部：

管理学院

专业：

电子商务专业

实验一IIS的安装与配置

一、实验目的：

掌握IIS的安装过程与配置方法。

二、实验要求：

掌握WWW的工作原理，了解动态网页的相关知识；掌握IIS的安装过程与配置。

三、实验器材：

Windows2000Server计算机系统；安装IIS、Dreamweaver8、Access2000数据库系统等。

四、实验内容：

一、IIS的安装

1、点击“开始→设置→控制面板→添加/删除程序→添加/删除Windows组件”，如图所示，选中“Internet信息服务（IIS）”选项。

添加组件

2、点击“下一步”，出现如图所示的“插入光盘”的对话框：

配置组件

3、点击“确定”，然后找到I386这个目录一路确定直至安装完毕。

二、IIS配置与使用

那么如何使用IIS呢？

这时就需要我们设置站点或虚拟目录。

Win2000server可以设置站点或虚拟目录，Win2000personal个人版只能设置虚拟目录。

设置虚拟目录的具体步骤如下：

点击“开始→设置→控制面板→管理工具→Internet信息服务”，然后选中“默认网站”，点击右键出现快捷菜单选择“新建→虚拟目录”，如图所示：

创建虚拟目录

然后弹出“虚拟目录创建向导”对话框，点击“下一步”出现如图所示的“虚拟目录别名”对话框，这里我们需要为虚拟目录命名。

假设我们命名为111.

为虚拟目录命名

点击“下一步”，出现“映射虚拟目录”对话框，我们可以直接在文本框中输入目录所在的路径也可以点击“浏览...”按钮来指定目录所在的路径。

我们假定为f:

\lgh\,如图所示:

映射虚拟目录

点击“下一步”，出现如图所示的对话框，设置好访问权限，例如：

“读取、运行脚本、写入、浏览”等都打上对勾。

设置访问权限

点击“下一步→完成”，完成虚拟目录的创建。

三、管理IIS

1、“主目录”选项卡

2、“网站”选项卡

3、“文档”选项卡

4、“HTTP头”选项卡

四、使用IIS

编写程序输出一下内容：

“这是利用ASP网页输出的信息”。

[参考步骤]：

1.启动Dreamweaver8，然后切换到源代码显示方式；

2.在与之间，加入以下ASP代码：

3.<%Response.write（“这是利用ASP网页输出的信息”）%>；

4.将网页保存到C：

\Inetpub\wwwroot目录下，文件命名为first.asp；

5.启动IE浏览器，在地址栏中键入：

http:

//localhost/first.asp或http:

//127.0.0.1/first.asp，然后按回车。

注意观察输出结果；

6.在wwwroot目录下创建一个myweb子目录，并将first.asp文件移动到myweb目录下，然后在浏览器中键入http:

//Localhost/myweb/first.asp；

实验二：

VBScript编程

一、实验目的：

熟悉VBScript的语法、掌握服务器端利用VBScript编程的基本方法

二、实验要求：

掌握VBScript语言的语法特点和内置的常用函数的用法；对程序的结构（顺序、分支、循环、过程）的概念和语法比较清晰；具备基本的编写程序的能力。

三、实验器材：

Windows2000Server计算机系统；安装IIS、Dreamweaver8、Access2000数据库系统等。

四、实验内容：

1、打印菱形图案；

2、递归调用求n的阶乘

3、随机字符串

4、制作ASP日历

5、编写程序显示系统当前日期。

日期格式为：

“××××年××月××日星期×”

其中星期×应为中文习惯，例如：

星期一。

6、编写程序显示“距2009年元旦倒记时的天数”

7、编写程序，显示用户注册后登陆时的四位验证吗？

附件：

参考代码：

1、打印菱形图案；

--

SubRhombus（）

DimRow,Cols,i,j,Spac

DimOutputString

ForRow=1to7

IfRow<7/2then

Cols=Row*2-1

Else

Cols=（7-Row）*2+1

Endif

Spa=（7-Cols）/2+1

Forj=0toSpa

OutputString=OutputString&""

Next

Fori=1toCols

OutputString=OutputString&"*"

Next

OutputString=OutputString&Chr（10）

Next

MsgBoxOutputString

EndSub

-->

bn

2、递归调用求n的阶乘

--

FunctionFac（n）

Dimf

Dimnum

num=cint（n）

Ifnum=1Ornum=0then

f=1

else

f=Fac（n-1）*n

Endif

Fac=f

EndFunction

SubshowResult（n）

DimResult

Result=Fac（n）

MsgBoxResult

EndSub

-->

输入一个整数：

onclick="ShowresultfrmExercise2.InputText.Value">

3、随机字符串

<%@LANGUAGE=VBScript%>

<%

FunctionGet_Key（digits）

'定义并初始化数组

dimchArray（26）

'初始化数字

Fori=65To90

chArray（i-65）=Chr（i）

Next

Randomize'初始化随机数生成器。

、

dowhilelen（output）

num=chArray（Int（（26-0+1）*Rnd+0））

output=output+num

loop

Get_Key=output

EndFunction

%>

 

4、制作ASP日历

<%

FunctionCountDays（iMonth,iYear）

SelectCaseiMonth

case1,3,5,7,8,10,12

CountDays=31

case2

ifIsDate（"2/29/"&iYear）Then

CountDays=29

else

CountDays=28

endif

case4,6,9,11

CountDays=30

EndSelect

EndFunction

FunctionFirstDay（iMonth,iYear）

FirstDay=WeekDay（iMonth&"/1/"&iYear）

EndFunction

dimmMonth,mYear

mMonth=Month（Date（））

mYear=Year（Date（））

mDate=Day（Date（））

%>

#CC9933;color:

#FFFFFF">

<%=mYear%>年<%=mMonth%>月