《教育网站开发基础》实验指导书.docx

（3）根据年月调用CountDays函数求得本月共有多少天，调用FirstDay函数求得本月1日为星期几，进而在表格单元格中显示本月日期，并对当前日期突出显示。

如下为两个函数的代码：

<%

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

%>

（4）最后给出以表格形式显示本月日期列表并突出显示当前日期的代码：

星期日

星期一

星期二

星期三

星期四

星期五

星期六

<%

j=1

fori=1to42

ifi>=FirstDay（mMonth,mYear）andj<=CountDays（mMonth,mYear）then

ifmDate=jthen

response.write"

"&j&""

else

response.write""&j

endif

j=j+1

else

response.write""&"

 "

endif

response.write""

ifimod7=0then

response.write""

endif

next

%>

（5）将上述代码复制到文本文件中，并将网页格式补充完整。

（6）保存文件，命名为Calender.ASP，保存在“实验三”文件夹中。

运行结果如图4所示。

图4

练习4：

打印100以内的所有素数

课本P66程序3-6写出了判断一个数是否为素数的过程，请同学们根据这个程序写出所要求的程序：

打印100以内的所有素数。

注意：

在实验报告中要把练习4的代码详细地列出来，前面的3个练习可以写得简洁一些。

实验四请求和响应

一、实验目的

了解Request对象及其成员；掌握Request.Form及Response.write的用法。

二、实验内容

1.用？

传递数据。

2.创建一个简单的用户登录页面；

3.创建用户信息调查表

4.重定向页面。

三、实验要求：

1.使用？

向另一个页面传递参数，并且在另一个页面将传递的参数值显示出来。

2.创建一个简单的用户登录页面，进行简单的输入判断；

3.创建用户信息调查表，并在另一个页面显示用户输入的信息；

4.练习Resoponse对象的Redirect方法，从一个页面直接转到另一个页面。

四、实验学时：

4学时

五、实验步骤：

练习1：

使用？

传递参数

要求最终结果如下：

单击“张柏芝”，跳转到另一个页面，打印出张柏芝的个人信息：

页面1：

zbz.html

页面2：

info.asp

要求：

页面2中画横线的部分通过页面间传递参数获取。

练习2：

创建一个简单的用户登录页面

（1）在Dreamweaver8中新建一个空白ASP文档。

（2）在【设计】面板设计登录界面，如图1所示。

图1login.htm页面效果图

（3）将文件保存为login.htm，保存在文件夹“实验四”中。

（4）新建空白ASP文档，命名为check.ASP，该页面的功能是对login.htm页面中输入的用户名和密码进行判断，若用户名和密码均为1234，显示“用户名密码正确”，若有一项错误，显示“用户密码错误”。

Check.ASP页面的代码清单如下：

<%@LANGUAGE="VBSCRIPT"%>

<%

Dimuser，pwd

User=Request.Form（"user"）

Pwd=Request.Form（"pwd"）

ifuser="1234"andpwd="1234"then

Response.write"用户登录成功"

else

Response.write"用户密码无效"

endif%>

（5）在IIS中预览页面，运行结果如图1，图2所示。

图1login.htm运行效果

图2点击“提交”按钮后的运行效果

练习3：

创建用户信息调查表

设计出如下图所示的表单：

要求：

对标注星号的几个文本框进行非空检查，电话号码必须为11位，邮箱必须合法（即包含“@”）

接受表单信息的网页效果图如下：

参考代码：

检查文本框是否为空的代码：

iflen（form1.name.value）=0then

msgbox"请输入用户名"

elseiflen（form1.tel.value）=0then

msgbox"请输入电话号码!

"

elseiflen（form1.tel.value）<>11then

msgbox"请输入正确的手机号!

"

endif

检查邮箱是否合法的代码：

fori=1tolen（form1.email.value）

ifMid（form1.email.value,i,1）="@"then

flag=1

endif

next

ifflag<>1then

msgbox"对不起,您输入的EMAIL地址不合法."

endif

练习4重定向页面

（1）在Dreamweaver中新建空白的ASP文件。

（2）在设计视图中设计如下页面：

图5

部分代码如下：

<%

ifRequest（"Submit"）<>""then

url=Request（"url"）

ifurl="163"thenResponse.Redirect""

ifurl="sohu"thenResponse.Redirect""

ifurl="sina"thenResponse.Redirect""

ifurl="yahoo"thenResponse.Redirect""

ifurl="me"thenResponse.Redirect""

endif

%>

（3）保存文件redirect.ASP，保存在“实验四”文件夹中。

（4）浏览页面，运行效果如图4所示。

图6

【举一反三】

1.用户登录页面，当用户输入信息错误时，弹出对话框“用户名或密码错误”，确定后返回到登陆页面继续输入信息。

实现方法如下：

<%

Dimusername,pwd

Ifnot（username=”admin”andpwd=”admin”）then

%>

Alert（"用户名或密码错误"）

Window.location.href=”login.html”

<%else

Response.redirect"index.asp"

Endif

%>

◆上面例子中，根据需要