<%

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

　　rs("submit_date")=Date()

　　rs.Update

　　%>

　　相關(guān)推薦：

　　2014年計(jì)算機(jī)等考上機(jī)六大注意事項(xiàng)

　　2014年計(jì)算機(jī)二級(jí)WEB程序復(fù)習(xí)重點(diǎn)匯總

　　2014年計(jì)算機(jī)二級(jí)WEB模擬試題及答案匯總