一. 选择题.
1. 在VBscript中,注释前使用:(’).
2. Response 对象的(Buffer)属性可指定缓存页的确切到日期和时间.
3. 下面循环语句中循环(11)次停止执行.
<%
Dim sum,I
SUM=0
I=1
Do
Sum=sum+2∧2
I=I+1
Loop while I<=10
%>
4. 执行完Split(“1,2,3,4”,“,”)值是(1,2,3,4).
5. Month (# 2003-10-22 #)函数返回的是(10).
6. 函数Instr(“jjshang@163.com”,“@”)的返回值为(10).
7. <%Response.writeserver,HTMLEncodel”<a href=’http://www.sohu.com’>搜狐</a>” %>允许结果为(<a href=’http://www.sohu.com’>搜狐</a>)
8. Application 对象的默认有效值为(应用程序从启动到结束).
9. 若要获得客户端的IP地址,应使用Server variable 方法查询(REMOTE-ADOR)变量.
10. 在执行A页面时,若要调用B页面,B页面执行完后,继续执行A页面。则通过Server 的(Execute)方面来实现.
11. 若要将虚拟路径转化为真实的物理路径,一下语句正确的是(Server.Mappath )
12. 如果要获得上一级文件夹得路径,可用的方法(GetParentFolerName).
13. 如果要获得User表前10条的记录的数据,用SQL语句实现为(SELECT TOP/O FROM USER).
14. 在表User有name、tel和data3个字段,要求向表user中插入一新纪录,该记录数据分别为:王明,8888888,2005-5-5,用SQL语句实现操作是(INSER INTO user(name,tel,data) VALUES(“王明”,“8888888”,#2005-5-5#)).
15. 如果服务器比较慢,执行查询操作时可能无法正常执行应该设置下面哪个属性.(command对象、commandTimeout).
16. 要获得当前记录在记录集中的位于那一页的属性是(Absolutepage).
17. 在分页显示时,用于指定每页记录数的属性是(pagesize).
18. 如果要获取客户端所提交时表单数据,应使用(Request)对象来实现.
19. 如果用组件上传,希望获得上传文件大小,应怎样实现。(Upload Files).
20. 在记录集RS中,课用于返回记录总数的语句是(rs. pagecount).
二.填空题.
1. 1、ASP文件的后缀名为 。(.asp)
2、如果强行要求所有的变量都预先声明,意思是所有的变量必须先声明才可以使用,在ASP文件所有ASP语句之前添加 。(Option Explicit)
3、VBScript只有一种数据类型,即 类型,也叫变体类型。(Variant)
4、声明一个变长数组,使用时需要使用Redim重声明,原来的数值全部清空。如果希望保留原有的项目的数值,可以使用 语句。(Redim Preserve)
5、SQL 是结构化查询语言(Structured Query Language)的缩写,在ASP中最常用的语句包括 、 、 和 。(select 语句、insert语句、delete 语句、update语句)
6、ADO的3个核心对象是 、 和 。(Connection、Command、Recordset)
7、要创建ODBC数据源,打开“控制棉板”中的 ,在 项目上双击来一步步实现。(管理工具、数据源(ODBC))
8、 对象的 方法来停止执行当前网页,转到新的网页执行,执行完毕后返回原来网页,继续执行该方法的语句。(server)(Execute)
9、记录分页显示时,Recordset对象的 属性确定每页显示的记录行的绝对值 属性确定当前记录位于哪一页上。
( AbsolutePosition、Absolutepage)
10、建立Connection对象是采用Server对象的 方法进行的。
(CreateObject)
三.程序题
1、利用Application对象编写一个简单的聊天室(要求5秒刷新一次)
<form name="form1" method="post" action="">
请发言:<input type="text" name="pronunciation" size="30">
<input type="submit" value=" 发送 ">
</form>
<%
If trim(request("pronunciation"))<>"" Then '如果有发言内容,就加到Application中
Application.Lock '先锁定
Application("show")= Request("pronunciation") & "<br>" & Application("show")
Application.Unlock '解除锁定
End if
<meta http-equiv=”refresh”content=”5”>
Response.Write Application("show") '显示聊天内容
%>
2、编写一个利用Recordset对象更新数据库(表为users 字段分别为 name、 tel、 age )姓名为李玫电话为8888888 年龄为23,要求李玫更新为李梅、电话更新为6666666、年龄更新为24。
<%
'连接数据库,建立Connection对象,address.mdb下面将建立
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'查询记录
'以下建立Recordset对象实例rs
Dim strSql,rs '定义变量
strSql="Select * From users"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write rs("name") & "<br>"
rs.MoveNext
Loop
'添加记录
strSql="Insert Into users(name,tel,age) Values('李玫','8888888',23)"
db.Execute(strSql)
'更新记录,将李玫的名字改为李梅,电话号码改为6666666,年龄改为24.
strSql="Update users Set name='李梅' tel='6666666' age=‘24’"
db.Execute(strSql)
%>