4个回答
展开全部
<html>
<head>
<http-equiv="Content-Type" content="text/html; charset=gb2312" >
<title ></title>
</head>
<body>
<%
Sub ReadFiles()
Dim objFSO
Dim objText
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile = "D\test\test file.txt"
ObjFile=server.mappath(ObjFile)
'Response.write ObjFile
'Response.end
IF objFSO.FileExists(ObjFile) then
'打开TXT文件，并赋值给变量
Set objText = objFSO.OpenTextFile(ObjFile,1)
'strTextContent = objText.ReadAll()
'循环读取数据
While not objText.AtEndOfStream '到文件的末尾
'While not objText.AtEndOfLine '到一行的末尾
strTextContent = objText.ReadLine()
response.write strTextContent
response.write "<br>"
wend
Call objText.Close
else
response.write "文件不存在"
response.end
end if
End Sub
'调用过程，读取文件
readfiles()
%>
</body>
</html>
<head>
<http-equiv="Content-Type" content="text/html; charset=gb2312" >
<title ></title>
</head>
<body>
<%
Sub ReadFiles()
Dim objFSO
Dim objText
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile = "D\test\test file.txt"
ObjFile=server.mappath(ObjFile)
'Response.write ObjFile
'Response.end
IF objFSO.FileExists(ObjFile) then
'打开TXT文件，并赋值给变量
Set objText = objFSO.OpenTextFile(ObjFile,1)
'strTextContent = objText.ReadAll()
'循环读取数据
While not objText.AtEndOfStream '到文件的末尾
'While not objText.AtEndOfLine '到一行的末尾
strTextContent = objText.ReadLine()
response.write strTextContent
response.write "<br>"
wend
Call objText.Close
else
response.write "文件不存在"
response.end
end if
End Sub
'调用过程，读取文件
readfiles()
%>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile("D：\test\test file.txt",1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
Response.write(str)
%>
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile("D：\test\test file.txt",1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
Response.write(str)
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
已经有最佳答案了,我看我还是不回答了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用fso来进行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
