下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。
<%
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
%>
