Function fso_file_open(fso_file_open_name)
on error resume next
if fso_file_open_name<>"" then
Set lq_fso=Server.Createobject("Scripting.FilesystemObject")
if lq_fso.FileExists(""&Server.MapPath(""&fso_file_open_name&"")&"") then
Set lq_read = lq_fso.OpenTextFile(""&Server.MapPath(""&fso_file_open_name&"")&"",1,True)
fso_file_open=lq_read.ReadAll
lq_read.Close
else
fso_file_open=""
end if
Set lq_fso=Nothing
else
fso_file_open=""
end if
End Function

 

 

 

使用：file_string=fso_file_open("doc.txt")