网络程序设计模拟试卷（5份及答案）(5)

'以下是执行更新语句

Response.Redirect “index.asp” %>

?更新完数据后返回首页

14．下面是利用文件存取组件完成新建一个文本文件test.txt的过程，请填写其中的空格。

<%

Dim FileObject '声明一个FileSystemObject对象实例 FileObject=Server.CreateObject(\ Dim TextFile '声明一个TextStream对象实例 TextFile= FileObject.CreateTextFile(\ '向文件中写一行内容，内容为“欢迎您”

TextFile.Close '关闭TextStream对象 Response.Write \已经成功建立文件，请自己打开查看。\%>

三、编程题（（第一题8分，第二题8分，第三题12分）

1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？

2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可）

3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。

16

ASP模拟试卷（二）参考答案

一．选择题（每题2分，共40分） BBCCC DCBDA ABDBC

二．填空题（每题1分，共40分）

18．Const 19．isNumeric

20．Sub子程序 、Function 函数 21．8

22．“d”

23．On Error Resume Next

24．Response 、Request、Session、Applicatio、Server 25．Response.Cookies(“user_name”).Expires 26．20 、Timeout 27．ScriptTimeout

28．Jmail.send(\

29．top 3 、 > 、desc

30．\& Server.Mappath(\& \Access Driver (*.mdb)}\

Update link Set name=?”&varName& “?, url=?”&varUrl& “? , intro=?”&varIntro& “?,submit_date=#”&varName& “# Db.Execute(strSql) name like ?%网%? 31．Set Set

TextFile.WriteLine(\欢迎您\

三．编程题（第一题10分，第二题20分） 1．

<%

Dim I,J,ren,mantou

For I=1 To 100 '大和尚从1到100循环

For J=1 To 100 '小和尚从1到100循环