For I= a To b
Sum=
Next
=Sum
End Function
%>
10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。
<%
Dim theday
theday=(Date())
Select Case theday
图1
查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列
strSql="Select * From link Where submit_date#2003-1-1# And #2004-1-1# Order By submit_date"
查询2004年1月1日以后提交的网站总数目
strSql="SelectAsTotal From link Where submit_date > #2004-1-1#"
15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。
set rs=db.execute(strsql)
'以下显示数据库记录
Do While
%>
<tr>
<td><%=rs("name")%></td>
<td><a href="" target="_blank"><%=rs("URL")%></a> </td>
<td><%=rs("submit_date")%></td>
17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为
(A) 1(B)True(C)False(D)NULL
18．使用W3 Jmail组件发送E-mail时，附件必须位于
(A)客户端(B)服务器端
(C)服务器端和客户端(D)服务器端或客户端
19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？
<%
Dim UserOnLine,Number
UserOnLine=Application("UserOnLine")
Number=(UserOnLine)'返回该数组的最大下标
For I=0 To Number
Response.Write
Next
%>
14.对于如下图的数据表link，请填写下面的SQL语句中的空格：
Case
"<img src='p1.jpg'>"
Case Else
"<img src='p2.jpg'>"
End Select
%>
11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。
<%
If Session("UserName")=Then
webcourse/www_1.htm第一讲利用工具软件制作网页
webcourse/www_2.htm第二讲网页制作高级功能
webcourse/www_3.htm第三讲利用源代码开发网页
(A)空格(B)Tab(C) (D)Space
二、填空题（每空1分，共40分）
1.ASP文件就是在普通的HTML文件中插入或JavaScript脚本语言。
6．执行完a=5>3 And "a"<"c"语句后，a的值为：
(A) True(B)False(C)1(D)0
7．下面a=Trim(" vbscript")&Rtrim(" good")语句后，a的值：
(A)" vbscript good"
(B) "vbscript good"
(C) " vbscriptgood"
rs.=page_no
Dim I
I=10
Do WhileAnd
I=I-1
Response.Write rs("name") & "<br>"
rs.MoveNext
Loop
'下面一段在下方显示页数信息，从1到总页数循环
......
Else
Response.Write "该记录集为空"
End If
%>
17.下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。
上海科兴韦学院2011学年度第二学期期终考试试卷A卷
课程名：《计算机编程ASP》考试形式：笔试开卷考试时间：90分钟
班级___________姓名学号_____________
题号
一
二
三
总分
得分
一、选择题（每小题2分，共40分）
1．请判断下列语句执行完毕后，a、b、c的值
<%
a="1" + 1
b="1" + "1"
(C)新浪（超链接）(D)该句有错，无法正常输出
14．Session对象的默认有效期为多少分钟？
(A) 10(B)15(C)20(D)应用程序从启动到结束
15．请问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)
.=varNumber
.=#2030-1-1#
Response.Write "您是第" & varNumber & "次访问本站"
%>
13.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。
'建ห้องสมุดไป่ตู้Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users order by name Asc"
rs.Open
'如果记录集不是空的，就执行分页显示
IfThen
'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
</tr>
<%
Loop
%>
</table>
16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
5.语句b=Int(10 *) +1)将返回1到10之间的随机整数。
6.在文件开头添加语句后，则所有的变量都必须先声明才能使用。
7.在数据库的表中，纵的一行叫做一个，横的一行叫做一个。
8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。
%>
C
(A) A(B)AB(C)AC(D)ABC
13．请问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write“<a href=''>新浪</a>”
%>
(A)新浪(B) <a href=''>新浪</a>
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open
'以下建立记录集
Dim strSql,rs
strSql=
(C)Request.ClientCertificate("REMOTE_ADDR")
(D)Request.ClientCertificate ("REMOTE_IP")
12．执行完如下语句后，页面上显示的内容为：
<%
Response.Write "A"
Response.End
Response.Write "B"
Dim page_no
If Request.QueryString("page_no")="" Then
