下面這段程序，打開本文件夾下的文本文件test.txt，并讀取其中所有的內(nèi)容顯示在頁面上，請(qǐng)?zhí)顚懫渲械目崭瘛?br>　　<%

　　Dim fso

　　Set fso=_____________________________ ‘創(chuàng)建FSO組件實(shí)例

　　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、有一個(gè)名wwwlink.mdb數(shù)據(jù)庫，庫中有一個(gè)link表，字段如圖，現(xiàn)在有兩個(gè)文件add_form.asp和 add.asp，這兩個(gè)文件用來向表中添加記錄，add_form.asp已經(jīng)給出，請(qǐng)你完成add.asp。要求：（1）只要完成添加記錄的主要代碼；（2）網(wǎng)站簡(jiǎn)介（intro）可以省略，其它字段均不可以省略。

　　Add_form.asp文件代碼：

　　網(wǎng)站名稱

　　網(wǎng)站地址

　　網(wǎng)站簡(jiǎn)介

　　add.asp（請(qǐng)?jiān)谙旅嫱瓿蒩dd.asp，開頭部分語句和最后一條語句已經(jīng)給出，只要在中間添加語句即可）

　　<% Option Explicit %>

　　<%

　　If Request.Form("name")<>"" And Request.Form("URL")<>"" Then

　　’以下連上數(shù)據(jù)庫，建立一個(gè)Connection對(duì)象實(shí)例db

　　Dim db

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

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

　　End If

　　%>

　　答：

　　<%

　　 ’建立Recordset對(duì)象

　　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")="門戶網(wǎng)站"

　　rs("submit_date")=Date()

　　rs.Update

　　%>