下面這段程序，打開(kāi)本文件夾下的文本文件test.txt，并讀取其中所有的內(nèi)容顯示在頁(yè)面上，請(qǐng)?zhí)顚?xiě)其中的空格。
<%
Dim fso
Set fso=_____________________________ ‘創(chuàng)建FSO組件實(shí)例
Dim TextFile
Set TextFile= fso.__________ (Server.MapPath("test.txt") ‘打開(kāi)文本文件
Do While Not TextFile.
Response.Write TextFile.___________‘讀一行文本
Response.Write "
"
Loop
%>
答：
Server.CreateObject("Scripting.FileSystemObject")
OpenTextFile
ReadLine
AtEndOfStream
23、有一個(gè)名wwwlink.mdb數(shù)據(jù)庫(kù)，庫(kù)中有一個(gè)link表，字段如圖，現(xiàn)在有兩個(gè)文件add_form.asp和 add.asp，這兩個(gè)文件用來(lái)向表中添加記錄，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，開(kāi)頭部分語(yǔ)句和最后一條語(yǔ)句已經(jīng)給出，只要在中間添加語(yǔ)句即可）
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("URL")<>"" Then
’以下連上數(shù)據(jù)庫(kù)，建立一個(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")="門(mén)戶網(wǎng)站"
rs("submit_date")=Date()
rs.Update
%>
<%
Dim fso
Set fso=_____________________________ ‘創(chuàng)建FSO組件實(shí)例
Dim TextFile
Set TextFile= fso.__________ (Server.MapPath("test.txt") ‘打開(kāi)文本文件
Do While Not TextFile.
Response.Write TextFile.___________‘讀一行文本
Response.Write "
"
Loop
%>
答：
Server.CreateObject("Scripting.FileSystemObject")
OpenTextFile
ReadLine
AtEndOfStream
23、有一個(gè)名wwwlink.mdb數(shù)據(jù)庫(kù)，庫(kù)中有一個(gè)link表，字段如圖，現(xiàn)在有兩個(gè)文件add_form.asp和 add.asp，這兩個(gè)文件用來(lái)向表中添加記錄，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，開(kāi)頭部分語(yǔ)句和最后一條語(yǔ)句已經(jīng)給出，只要在中間添加語(yǔ)句即可）
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("URL")<>"" Then
’以下連上數(shù)據(jù)庫(kù)，建立一個(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")="門(mén)戶網(wǎng)站"
rs("submit_date")=Date()
rs.Update
%>