在括号里写适当的内容，以便在当前目录中创建一个名为“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.（）  %>
相似考题

1.使用FSO编程,首先要创建FileSystemObject对象。()此题为判断题(对，错)。

2.在连接对象的创建方法，正确的是( )。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")

3.有如下程序： 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．在消息对话框中显示文件的创建日期

4.阅读以下说明和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

更多“在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。  &lt;%  Dim fso ， f  Set  fso = Server.CreateObject（）  ’创建FSO对象实例  Set  f = fso.（）（）     ’创建文件并返回textStream对象  f.（）  "Hello"  f.（）  %&gt;”相关问题

  • 第1题：

    阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。

    [说明]

    本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。

    在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。

    [Visual Basic 代码]

    Private Sub Drivel_Change()

    Dirl. Path=(1) '更新目录列表框的路径

    End Sub

    Private Sub Dirl_Change( )

    (2)= Dirl. Path '更新文件列表框的路径 End Sub

    Private Sub Commandl_Click( )

    Dim fso, a As Object

    Dim i, j As Integer

    If (3) = "" Then '判断是否已经选中某个文件

    MsgBox "请选择一个文件文件!"

    (4) '退出事件过程

    End If

    '创建文件系统对象以及文本流对象

    Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )

    Set a = fso. OpenTextFile( Dirl. Path & "/" &(3))

    i=1

    Do While (5)＜＞ True '逐行读取文件，直至文件末尾

    strLine = a. ReadLine

    j = InStr(1,(6))'返回目标字符串在文件这一行中的位置

    If j > 0 Then '如果目标字符串在这一行出现，则返回其位置

    MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"

    (4) '退出事件过程

    End If

    i:i+l

    Loop

    MsgBox "字符串在文件中不出现，"

    End Sub


    正确答案：[问题1](1)Drivel. Drive (2)File1. Path (3)File1. filename (4)Exit Sub (5)AtEndOfStream (6)str Line Textl. Text [问题2](7)Pattern (8)*.* (9)*.jpg;*.bmp
    [问题1](1)Drivel. Drive (2)File1. Path (3)File1. filename (4)Exit Sub (5)AtEndOfStream (6)str Line, Textl. Text [问题2](7)Pattern (8)*.* (9)*.jpg;*.bmp 解析：(1)～(2)驱动器列表框的Drive属性表示当前选择的驱动器；目录列表框的Path属性表示当前目录的路径，如："c:\ucdos\bin";文件列表框的path属性则表示列表中文件所在的目录的路径。因此，我们通常都把驱动器列表框对象的Path属性和目录列表框、文件列表框的Path属性联系起来，以实现三者的连动；
    (3)文件列表框的filename属性返回选定的不含路径的纯文件名称，如"bkspeak.exe"、"VB习题．txt"等； (4)Exit Sub语句用于提前结束过程，类似地语句还有 Exit For(提前退出For循环)以及Exit Do(提前退出Do循环)等；
    (5)文本流对象的AtEndOfStream属性返回Boolean类型的值，表示是否到达流的末尾；
    (6)instr是VB提供的字符串查找函数，常用格式是in- str(起始位置，字符串1，字符串2)，功能是返回字符串 2在字符串1中首次出现的位置(若字符中2在字符串 1种不出现则返回0)；
    (7)～(9)文件列表框的Pattern属性用于限制文件列表框中文件的类型，格式为：文件列表框名．pattern=" *.扩展名1;*.扩展名2;……"(中间不包含空格)，例如"*.txt"、"*.*"以及"*.txt;*.rtf;*. htm"等。

  • 第2题：

    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）

    ACreateTextFile方法

    BWriteBlankLine方法

    COpenAsTextStream方法

    DOpenTextFile方法


    B
    略

  • 第3题：

    如果目标文件存在，下面（）语句建立的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,B,C,D

  • 第4题：

    什么是File Access组件的FSO对象？


    正确答案:File Access组件提供可用于在计算机文件系统中检索和修改文件的对象,用户可使用该组件创建FileSystemObject对象,简称为FSO,FSO提供用于访问文件系统的方法,属性和集合.

  • 第5题：

    <% ’创建连接对象  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  ’释放连接对象  %>


    正确答案:ADODB.Connection；ConnectionString；MapPath；Open

  • 第6题：

    填写适当的内容，以便在当前目录中创建一个名为“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对象  %>


    正确答案:Scripting.FileSystemObject；WriteLine；WriteBlankLine(1)；Close

  • 第7题：

    对Access数据库进行操作，数据库为当前站点目录data目录中的Student.mdb，创建的系统数 据源名称为：STUD创建连接对象的语句为：   Set connStudent = Server.CreateObject（"ADODB.Connection"） 请按下列要求填空： 以OLEDB方式指定connStudent的连接字符串    connStudent.Connection =（）


    正确答案:"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./data/Student.mdb")

  • 第8题：

    <% set name=server.CreateObject（“MSWC.NextLink”）%>语句能够实现的作用是：（）。

    • A、定义并创建一个名为name的文件超链接组件
    • B、定义并创建一个名为name的广告轮显组件
    • C、定义并创建一个名为name的存取组件
    • D、定义并创建一个名为name的浏览器性能组件

    正确答案:A

  • 第9题：

    单选题
    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）
    A

    CreateTextFile方法

    B

    WriteBlankLine方法

    C

    OpenAsTextStream方法

    D

    OpenTextFile方法


    正确答案： D
    解析： 暂无解析

  • 第10题：

    填空题
    填写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。

    正确答案： Scripting.FileSystemObject,WriteLine,WriteBlankLine(1),Close
    解析： 暂无解析

  • 第11题：

    填空题
    在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt”  " ’读取一行字符发送到浏览器  Wend  f.Close  %>

    正确答案： Scripting.FileSystemObject,OpenTextFile,Server.MapPath("./text.txt",AtEndofStream,ReadLine
    解析： 暂无解析

  • 第12题：

    单选题
    如果目标文件不存在，下面（）语句能够自动建立文件。
    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）


    正确答案： D
    解析： 暂无解析

  • 第13题：

    在下划线上填写适当的内容，以便向当前目录中的文本文件“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    ’关闭文件流对象 %>
    Request.Form；Server.CreateObject；

    略

  • 第14题：

    如果要使用FSO编程，首先要用（）方法创建FileSystemObject对象。


    正确答案:Server.CreatObject

  • 第15题：

    如果目标文件不存在，下面（）语句能够自动建立文件。

    • 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）

    正确答案:A

  • 第16题：

    在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt”  <%  Dim fso ， f  Set  fso = Server.CreateObject（）  ’创建FSO对象实例  Set  f = fso.（）（）   ’打开文件并返回textStream对象  while  Not  f.（） ’当文件指针不在文本文件末尾时执行循环  Response.Write  f.（）&"
    " ’读取一行字符发送到浏览器  Wend  f.Close  %>


    正确答案:Scripting.FileSystemObject；OpenTextFile；Server.MapPath("./text.txt"；AtEndofStream；ReadLine

  • 第17题：

    使用FSO编程，首先要用（）方法创建FileSystemObject对象。


    正确答案:CREATEOBJECT

  • 第18题：

    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）

    • A、CreateTextFile方法
    • B、WriteBlankLine方法
    • C、OpenAsTextStream方法
    • D、OpenTextFile方法

    正确答案:B

  • 第19题：

    FSO组件可以用来对（）、（）以及文件等对象进行相关的处理操作。


    正确答案:FOLDERS；DRIVERS

  • 第20题：

    填空题
    对Access数据库进行操作，数据库为当前站点目录data目录中的Student.mdb，创建的系统数 据源名称为：STUD创建连接对象的语句为：   Set connStudent = Server.CreateObject（"ADODB.Connection"） 请按下列要求填空： 以OLEDB方式指定connStudent的连接字符串    connStudent.Connection =（）

    正确答案： "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./data/Student.mdb")
    解析： 暂无解析

  • 第21题：

    多选题
    如果目标文件存在，下面（）语句建立的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）


    正确答案： C,D
    解析： 暂无解析

  • 第22题：

    填空题
    在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。

    正确答案： Scripting.FileSystemObject,CreateTextFile,Server.MapPath("./text.txt",WriteLine,Close
    解析： 暂无解析

  • 第23题：

    填空题
    使用FSO编程，首先要用（）方法创建FileSystemObject对象。

    正确答案： CREATEOBJECT
    解析： 暂无解析

相关内容