实验二VBScript编程实验报告.docx

实验二VBScript编程实验报告.docx

《实验二VBScript编程实验报告.docx》由会员分享，可在线阅读，更多相关《实验二VBScript编程实验报告.docx（16页珍藏版）》请在冰豆网上搜索。

实验二VBScript编程实验报告

实验

成绩

实验评阅教师签名

简

要

评

语

实验报告册

实验课程名称：

实验项目序号：

实验二

实验项目名称：

VBScript编程

实验室名称：

ERP实验室

开课学期：

2012——2013学年第2学期

授课教师：

实验指导教师：

专业：

班级：

姓名：

学号：

实验报告

实验报告

实验时间：

2013年X月13日X节

一、实验运行环境

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

二、实验目的

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

三、实验要求

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

四、实验内容和步骤

1、打印菱形图案

<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

--

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

-->

2.输入http:

//localhost/lingxing.asp,网页如图所示：

3、递归调用求n的阶乘

<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

--

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">

4、输入http:

//localhost/qiuhe.asp，如网页所示：

5、随机字符串

<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

<%

'生成随机字符串所想

FunctionrandKey（obj）

Dimchar_array（80）

Dimtemp

Fori=10To35

char_array（i）=Chr（i+55）

Next

Fori=36To61

char_array（i）=Chr（i+61）

Next

Randomize

Fori=1Toobj

'rnd函数返回的随机数在0~1之间，可等于0，但不等于1

'公式：

int（（上限-下限+1）*Rnd+下限）可取得从下限到上限之间的数，可等于下限但不可等于上限

temp=temp&char_array（int（62-0+1）*Rnd+0）

Next

randKey=temp

EndFunction

Response.Write（randKey（6））

%>

6、输入http:

//localhost/2-3.asp,如图所示

七、制作ASP日历

%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

<%

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%>月