在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。 % Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’创建文件并返回textStream对象 f.（） "Hello" f.（） %
在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。 <% Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’创建文件并返回textStream对象 f.（） "Hello" f.（） %>
参考解析
略
相关考题：
阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1), file As filePrivate Sub Form_Load()Set fso = CreateObject("Scripting.FileSystemObject")Drivel.Drive = "F:"End SubPrivate Sub Dir1_Change()File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change()Dir1.path =(2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码If Right(Dir1.path, 1) ＜＞"\" Thenfilename = Dir1.path "\" Filel.filenameElsefilename = Dir1.path Filel.filenameEnd IfImage1.Picture =(3)Set file = fso.GetFile(filename)Text1. Text = "文件名称:" file.Name vbCrLf _"文件大小:" file. Size "字节" vbCrLf _"文件类型:" file.Type vbCrLf _"创建日期:" file. DateCreated vbCrLf _"修改日期:" file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码Dim path As Stringpath = InputBox("请输入目标路径(含文件名):")(4)End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码(5)End Sub
在连接对象的创建方法，正确的是( )。A conn=createobject("ADOBD.Connection")B conn=server.createobject("ADODB.Connection")C set conn=server.createobject(ADOBD.Connection)D set conn=server.createobject("ADODB.Connection")
有如下程序： Sub Filelnfo(file1) Dim f1,{f,s Set f1＝CreateObject("Scripting.FileSystemObject") Set f＝f1.GetFile(file1) s＝f.DateCreated MsgBox s End Sub 这个子程序的作用是A．创建一个新文件file1B．在消息对话框中显示文件file1的内容C．在消息对话框中显示文件的所有信息D．在消息对话框中显示文件的创建日期
阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。[说明]本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。[Visual Basic 代码]Private Sub Drivel_Change()Dirl. Path=(1) '更新目录列表框的路径End SubPrivate Sub Dirl_Change( )(2)= Dirl. Path '更新文件列表框的路径 End SubPrivate Sub Commandl_Click( )Dim fso, a As ObjectDim i, j As IntegerIf (3) = "" Then '判断是否已经选中某个文件MsgBox "请选择一个文件文件!"(4) '退出事件过程End If'创建文件系统对象以及文本流对象Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )Set a = fso. OpenTextFile( Dirl. Path "/" (3))i=1Do While (5)＜＞ True '逐行读取文件，直至文件末尾strLine = a. ReadLinej = InStr(1,(6))'返回目标字符串在文件这一行中的位置If j 0 Then '如果目标字符串在这一行出现，则返回其位置MsgBox "字符串第一次出现的位置是" "(" i "," j "),,"(4) '退出事件过程End Ifi:i+lLoopMsgBox "字符串在文件中不出现，"End Sub
在下划线上填写适当的内容，以便向当前目录中的文本文件“test.txt”中写入数据 % Dim fso ， f ， rc rc = （）（"txtContent"） ’接收表单提交的文本数据 ’创建FSO对象实例 Set fso = （）（"Scripting.FileSystemObject"） ’创建文件并返回textStream对象，以覆盖方式打开文件 Set f = fso. CreateTextFile （Server.MapPath（"./test.txt"），true） ’向文件中写入数据 f. WriteLine rc"（）" f. Close ’关闭文件流对象 %
下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）ACreateTextFile方法BWriteBlankLine方法COpenAsTextStream方法DOpenTextFile方法
如果目标文件存在，下面（）语句建立的TextStream对象可以读取文件。A、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，True）B、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1）C、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"）D、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，，True）
如果目标文件不存在，下面（）语句能够自动建立文件。A、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，True）B、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，2，True）C、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，8，False）D、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，False）
在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt” % Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’打开文件并返回textStream对象 while Not f.（） ’当文件指针不在文本文件末尾时执行循环 Response.Write f.（）"" ’读取一行字符发送到浏览器 Wend f.Close %
% ’创建连接对象 Set Session（"conn"） = Server.CreateObject（"（）"） ’打开站点目录data子目录中的student.mdb的Access数据库 Session（"conn"）.（） = "Driver={Microsoft Access Driver （*.mdb）}；DBQ=" Server.（）（"./data/student.mdb"） Session（"conn"）.（） ’打开连接对象 ...... ’该部分为执行代码 Session（"conn"）.Close ’关闭数据连接对象 Set Session（"conn"） = Nothing ’释放连接对象 %
填写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。 %Dim fso ， F ’创建FSO对象实例 Set fso = Server.CreateObject（） ’创建文件并返回textStream对象 Set F = fso.CreateTextFile（Server.MapPath（"./test.txt"） ）； F.（） "Hello" ’向文件中写入字符串后换行 F.（） ’向文件中输出1个空行 F.（） ’关闭 TextStream对象 %
下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）A、CreateTextFile方法B、WriteBlankLine方法C、OpenAsTextStream方法D、OpenTextFile方法
对Access数据库进行操作，数据库为当前站点目录data目录中的Student.mdb，创建的系统数 据源名称为：STUD创建连接对象的语句为： Set connStudent = Server.CreateObject（"ADODB.Connection"） 请按下列要求填空： 以OLEDB方式指定connStudent的连接字符串 connStudent.Connection =（）
% set name=server.CreateObject（“MSWC.NextLink”）%语句能够实现的作用是：（）。A、定义并创建一个名为name的文件超链接组件B、定义并创建一个名为name的广告轮显组件C、定义并创建一个名为name的存取组件D、定义并创建一个名为name的浏览器性能组件
填空题对Access数据库进行操作，数据库为当前站点目录data目录中的Student.mdb，创建的系统数 据源名称为：STUD创建连接对象的语句为： Set connStudent = Server.CreateObject（"ADODB.Connection"） 请按下列要求填空： 以OLEDB方式指定connStudent的连接字符串 connStudent.Connection =（）
单选题下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）ACreateTextFile方法BWriteBlankLine方法COpenAsTextStream方法DOpenTextFile方法
多选题如果目标文件存在，下面（）语句建立的TextStream对象可以读取文件。ASet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，True）BSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1）CSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt）DSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，，True）
单选题如果目标文件不存在，下面（）语句能够自动建立文件。ASet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，True）BSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，2，True）CSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，8，False）DSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，False）