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

db.Open '以下建立记录集

Dim strSql,rs

strSql= set rs=db.execute(strsql) '以下显示数据库记录

Do While %>

<%=rs(\

<%=rs(\

<%

Loop

%>

16. 针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请

填写其中的空格。

<%

Dim db,rs,strSql

'建立Connection对象

Set db=Server.CreateObject(\

db.Open \ '这里利用数据源连接 '建立Recordset对象

Set rs=Server.CreateObject(\

strSql =\

rs.Open '如果记录集不是空的，就执行分页显示

If Then '下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定

Dim page_no If Request.QueryString(\ page_no=1 Else

page_no= (Request.QueryString (\

End If

'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。 rs. =10 rs. =page_no Dim I I=10

Do While And

6

I=I-1

Response.Write rs(\ rs.MoveNext Loop

'下面一段在下方显示页数信息，从1到总页数循环 ......

Else Response.Write \该记录集为空\End If

%>

17. 下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面

上，请填写其中的空格。

<%

Dim fso

Set fso=Server.CreateObject(\ Dim TextFile Set TextFile= fso. (Server.MapPath(\Do While Not TextFile. Response.Write TextFile.ReadLine %>

Response.Write \ Loop

三、编程题（每空10分，共30分）

1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可 ********** ********* ******** ******* ****** ***** **** *** ** *

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日期为当天。

注意：只给出主要代码即可，程序的开头部分已经给出。

<%

7

Dim db, strConn

strConn=\& Server.Mappath(\& \Access Driver (*.mdb)}\ Set db=Server.CreateObject(\

3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。

Add_form.asp

add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）

<% Option Explicit %> <%

If Request.Form(\ '以下连上数据库，建立一个Connection对象实例db

Dim db

Set db=Server.CreateObject(\

db.Open \

(*.mdb)};\ End If %>

8

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

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

BBDCB ABABB AACCB CCBAB

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

3． “vbscript” 4． d