<%

　　Dim fso  

　　Set fso=_____________________________ ‘创建FSO组件实例

　　Dim TextFile    

　　Set TextFile= fso.__________ (Server.MapPath("test.txt") ‘打开文本文件

　　Do While Not TextFile.   

　　Response.Write TextFile.___________‘读一行文本

　　Response.Write "
"     

　　Loop

　　%>

　　答：

　　Server.CreateObject("Scripting.FileSystemObject")

　　OpenTextFile

　　ReadLine

　　AtEndOfStream

　　23、有一个名wwwlink.mdb数据库，库中有一个link表，字段如图，现在有两个文件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("name")<>"" And Request.Form("URL")<>"" Then

　　’以下连上数据库，建立一个Connection对象实例db

　　Dim db 

　　Set db=Server.CreateObject("ADODB.Connection") 

　　db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

　　End If

　　%>

　　答：

　　<%

　　 ’建立Recordset对象

　　Set rs=Server.CreateObject("ADODB.Recordset")

　　strSql ="Select * From link"

　　rs.Open strSql，db，0，2  

　　’添加记录

　　rs.AddNew

　　rs("name")= "搜狐"

　　rs("url")="www.sohu.com"

　　rs("intro")="门户网站"

　　rs("submit_date")=Date()

　　rs.Update

　　%>

　　相关推荐：

　　2014年计算机等考上机六大注意事项

　　2014年计算机二级WEB程序复习重点汇总

　　2014年计算机二级WEB模拟试题及答案汇总