UC知道求一段ASP代码 使用FSO显示文件内容
来源：百度知道 编辑：UC知道 时间：2024/05/23 15:21:48
例如利用FSO读取1.txt的内容，主要是如果找不到1.txt 则显示12345， 不要让它显示文件没有找到的提示。
Dim objFSO,f
Dim FileName,msg
FileName="1.txt"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(FileName)) Then
Set f = objFSO.OpenTextFile(FileName, ForReading)
msg = f.ReadLine
f.Close
Set f = Nothing
Else
msg="12345"
End If
Set objFSO = Nothing
显示msg就成了
<%
dim fso,fileName
fileName = "1.txt"
set fso = Server.CreateObject("Scripting.FileSystemObject")
if(fso.FileExists(fileName)) then
dim fsoRead,textLine
Set fsoRead = fso.OpenTextFile(fileName, ForReading)
textLine = fsoRead.ReadAll
Response.Write "Content:'" & textLine & "'"
fsoRead.Close
else
response.write("12345")
end if
set fso = nothing
%>