页 (B) Tab (C) &;nbsp; (D) Space (A) 空格 )
二、填空题(每空 1 分,共 40 分) 填空题(
1. 2. 3. 4. ASP 文件就是在普通的
HTML 文件中插入 或
JavaScript 脚本语言。 如果操作
系统是 Windows 2000,一般需要安装 组件才能运行 ASP 程序。 执行完 a= Left("vbscript",2) &; Mid("vbscript",3,4) &; Right("vbscript",2) 后,a 的值 为 。 ",10,Date()) 将返回 10 天后是几号。 语句 a=DateAdd("
第 3 页 共 12页
5. 6. 7. 8.
语句 b=Int(10 * ) +1) 将返回 1 到 10 之间的随机整数。 语句后,则所有的变量都必须先声明才能使用。 在文件开头添加 在数据库的表中,纵的一行叫做一个 ,横的一行叫做一个 。 原来用一个数组 users 保存学生名单,现在新转来一位同学“张峰” ,需要将其名字添 加到该数组中,请填写下面
程序段中的空格。 <% Dim users() Redim users(40) users(0)="王军" users(1)="李俊" …… Redim users(41) users(41)="张峰" %> 9. 下面是一个函数,用来返回从 a 到 b 的立方和,请填写其中的空格。 <% Function Cube(a,b) Dim I,Sum Sum= For I= a To b Sum= Next =Sum End Function %> 10. 下面这段语句,将根据今天是星期几,分别在页面上显示一幅图片,星期一、二显示 p1.jpg,其它时间显示 p2.jpg。请填写完整下面的程序。 <% Dim theday theday= (Date()) Select Case theday Case "
" Case Else "
" End Select %> 11. 很多网站要求客户必须登录后才能访问, 如果客户没有登录, 就直接访问网站的某个页 面,应该将其引导到首页。请据此填写下面的空格。 <% If Session("UserName")= Then "index.asp" End If %>
第 4 页 共 12页
12. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。 <% Dim varNumber varNumber=Request.Cookies("number") Then If varNumber=
1 Else varNumber=varNumber+1 End If . =varNumber . =#2030-1-1# Response.Write "您是第" &; varNumber &; "次访问本站" %> 13. 假如 Application("UserOnLine")中保存了一个数组,该数组中保存了在线用户的名称, 下面的程序段从其中读取所有用户名,并显示在页面上,请填写其中的空格。 <% Dim UserOnLine,Number UserOnLine=Application("UserOnLine") Number= (UserOnLine) '返回该数组的最大下标 For I=0 To Number Response.Write Next %> 14. 对于如下图的数据表 link,请填写下面的 SQL 语句中的空格:
图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="Select As Total From link Where submit_date > #2004-1-1#" 15. 针对上面图 1 所示, 下面要在页面上按提交日期降序排列所有的网站, 请填写下面程序 段中的空格。假设数据库文件 wwwlink.mdb 和本文件存放在同一个文件夹下,数据表 名为 link。
网站名称 |
网站地址 |
提交日期 |
<%
第 5 页 共 12页
'以下连接数据库 Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open '以下建立记录集 Dim strSql,rs strSql= set rs=db.execute(strsql) '以下显示数据库记录 Do While %>
<%=rs("name")%> |
<%=rs("URL")%> |
<%=rs("submit_date")%> |
<% Loop %>
16. 针对上面图 1 所示,下面是分页显示所有网站的名称的语句,每页显示 10 条记录,请 填写其中的空格。 <% Dim db,rs,strSql '建立 Connection 对象 Set db=Server.CreateObject("ADODB.Connection") db.Open "Dsn=addr" '这里利用数据源连接 '建立 Recordset 对象 Set rs=Server.CreateObject("ADODB.Recordset") strSql ="Select * From users order by name Asc" rs.Open '如果记录集不是空的,就执行分页显示 If Then '下面一段判断当前显示第几页,如是第一次打开,为 1,否则由传回参数决定 Dim page_no If Request.QueryStr