ing("page_no")="" Then page_no=1 Else page_no= (Request.QueryString ("page_no")) End If '下面一段开始分页显示,指向要显示的页,然后逐条显示当前页的所有记录。 rs. =10 =page_no rs.
第 6 页 共 12页
Dim I I=10 And Do While I=I-1 Response.Write rs("name") &; "
" rs.MoveNext Loop '下面一段在下方显示页数信息,从 1 到总页数循环 ...... Else Response.Write "该记录集为空" End If %> 17. 下面这段程序,打开本文件夹下的文本文件 test.txt,并读取其中所有的内容显示在页面 上,请填写其中的空格。 <% Dim fso Set fso=Server.CreateObject("Scripting.FileSystemObject") Dim TextFile Set TextFile= fso. (Server.MapPath("test.txt") Do While Not TextFile. Response.Write TextFile.ReadLine Response.Wr
ite "
" Loop %>
三、编程题(每空 10 分,共 30 分) 编程题(
1.请编写代码,在页面上显示如下图形。注意:只要写出主要代码即可 ********** ********* ******** ******* ****** ***** **** *** ** *
2.利用 Recodset 对象也可以插入记录,现在针对图 1 所示的数据表,利用插入一条记录: 其中网站名称为“搜狐” ,网站地址为“sohu” ,网站简介为“门户网站” ,提交日
第 7 页 共 12页
期为当天。 注意:只给出主要代码即可,程序的开头部分已经给出。 <% Dim db, strConn strConn="Dbq=" &; Server.Mappath("address.mdb") &; ";Driver={Microsoft Access Driver (*.mdb)}" Set db=Server.CreateObject("ADODB.Connection")
3.针对图 1,现在有两个文件 add_form.asp 和 add.asp,这两个文