(B)Request.ServerVariables("REMOTE_IP")
(C)Request.ClientCertificate("REMOTE_ADDR")
(D)Request.ClientCertificate ("REMOTE_IP")
12．执行完如下语句后，页面上显示的内容为：（A）
<%
<%
Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)
%>
(A)新浪(B) <a href=''>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
2．执行完语句a="2"，a的类型为（B）
(A)数值型(B)字符串型(C)布尔型(D)日期型
3．执行完如下语句后，a的值为：（D）
<%
Dim a
a=3
a=a+1
%>
(A) 0(B)1(C)3(D)4
4．执行完如下语句后，Sum的值为：（C）
<%
Dim a(5),Sum
Sum=0
For I=0 To 5
(*.mdb)}"
'以下建立记录集
Dim strSql,rs
strSql="Select * From link Order By Submit_date Desc"
set rs=db.execute(strsql)
'以下显示数据库记录
Do WhileNot rs.Eof
%>
<tr>
<td><%=rs("name")%></td>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
a(I)=I
Sum=Sum+a(I)
Next
%>
(A) 0(B)5(C)15(D)20
5．执行完a=5 Mod 3语句后，a的值为：（B）
(A) 0(B)2(C)3(D)5
6．执行完a=5>3 And "a"<"c"语句后，a的值为：（A）
(A) True(B)False(C)1(D)0
7．下面a=Trim(" vbscript")&Rtrim(" good")语句后，a的值：（B）
(D)Request.Form("upfile").Size
20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（B）隔开。
webcourse/www_1.htm第一讲利用工具软件制作网页
webcourse/www_2.htm第二讲网页制作高级功能
webcourse/www_3.htm第三讲利用源代码开发网页
动态网页制作作业
姓名：常小梅
动态网页制作作业
一、选择题（每小题2分，共40分）
1．请判断下列语句执行完毕后，a、b、c的值（B）
<%
a="1" + 1
b="1" + "1"
c="1" & "1"
%>
(A)"11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2
（C）Cookies、QueryString、Form、Server Variables、ClientCertificate
（D）Form、QueryString、Cookies、Server Variables、ClientCertificate
11．下面哪条语句可以返回访问者的IP地址（A）
(A) Request.ServerVariables("REMOTE_ADDR")
16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：（C）
(A) BeginTrans(B)EndTrans
(C)CommitTrans(D)RollBackTrans
17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）
(A) 1(B)True(C)False(D)NULL
18．使用W3 Jmail组件发送E-mail时，附件必须位于（B）
<%
Dim theda
theday=Weekday(Date())
Select Case theday
Case2,3
Response.Write"<img src='p1.jpg'>"
Case Else
Response.Write"<img src='p2.jpg'>"
End Select
%>
11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。
(A)客户端(B)服务器端
(C)服务器端和客户端(D)服务器端或客户端
19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？（A）
(A)Upload.Files("upfile").Size
(B)Upload.Form("upfile").Size
(C)Request.Files("upfile").Size
strSql ="Select * From users order by name Asc"
rs.OpenstrSql,db,1
'如果记录集不是空的，就执行分页显示
IfNot rs.Bof And Not rs.EofThen
'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。
<%
Dim users()
Redim users(40)
users(0)="王军"
users(1)="李俊"
……
RedimPreserveusers(41)
users(41)="张峰"
(A) 0(B)4(C)5(D)6
10．对于Request对象，如果省略获取方法，如Request(“user_name”)，将按什么顺序依次检查是否有信息传入：（B）
（A）Form、QueryString、Cookies、Server Variables、ClientCertificate
（B）QueryString、Form、Cookies、Server Variables、ClientCertificate
For I=0 To Number
Response.WriteUserOnLine(I)
Next
%>
14.对于如下图的数据表link，请填写下面的SQL语句中的空格：
图1
查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列
strSql="Select * From link Where submit_dateBetween#2003-1-1# And #2004-1-1# Order By submit_dateDesc"
%>
9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。
<%
Function Cube(a,b)
Dim I,Sum
Sum=0
For I= a To b
Sum=Sum+I^3
Next
Cube=Sum
End Function
%>
10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。
%>
(A)新浪(B) <a href=''>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
14．Session对象的默认有效期为多少分钟？（C）
(A) 10(B)15(C)20(D)应用程序从启动到结束
15．请问下面程序段执行完毕，页面上显示内容是什么：（B）
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
