FSO读取文本文件 ASP函数

 

'[读取文本文件]
  '函数名：ReadTextFile
  '作 用：读取文本文件
  '参 数：Fname ---- 文本文件名称（包括路径）
  '返回值：返回读取的文本内容
  '**************************************************
  Public Function ReadTextFile(ByVal Fname)
   Dim M_fso,FnameN,Fnr
   ReadTextFile=""
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   Set FnameN= M_fso.OpenTextFile(Fname,1,True)
   Fnr=FnameN.ReadAll
   FnameN.Close
   Set M_fso = Nothing
   ReadTextFile=Fnr
  End Function