推荐于2018-07-14
展开全部
Set fso = CreateObject("Scripting.FileSystemObject")
Set htmlwrite=fso.OpenTextFile(server.MapPath("xxx.txt"))
strOut=htmlwrite.ReadAll
htmlwrite.close
response.write(strOut)
大体意思就是这些 其他的再自己补充下
Set htmlwrite=fso.OpenTextFile(server.MapPath("xxx.txt"))
strOut=htmlwrite.ReadAll
htmlwrite.close
response.write(strOut)
大体意思就是这些 其他的再自己补充下
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-18
展开全部
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.AtEndOfLine Then '先确定还没有到达结尾的位置
Content = txt.ReadAll '读取整个文件的数据
Lines = Replace(Content, vbCrlf, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>"
Response.Write Lines
End If
%>
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.AtEndOfLine Then '先确定还没有到达结尾的位置
Content = txt.ReadAll '读取整个文件的数据
Lines = Replace(Content, vbCrlf, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>"
Response.Write Lines
End If
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-18
展开全部
用fso操作
fso打开文件 读取文件 输出文件 就可以了
fso打开文件 读取文件 输出文件 就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |