62,047
社区成员
发帖
与我相关
我的任务
分享请问那里有读取硬盘上的文本文件(.txt)的代码？
某目录下不断存进文本文件，我想随时选中想看的文件，并通过网页显示出来，请问谁知道那里有这样的代码呀！
...全文
请发表友善的回复…
发表回复
qelle 2003-07-29
- 打赏
- 举报
<%@ Page language="vb" ContentType="text/html" debug="true"%>
<%@ Import Namespace="System.IO" %>
<script runat="server">
sub Page_Load(sender as Object, e as EventArgs)
Dim FILENAME as String = Server.MapPath("sql.txt")
Dim objStreamReader as StreamReader
objStreamReader = File.OpenText(FILENAME)
Dim contents as String = objStreamReader.ReadToEnd()
lblNicerOutput.Text = contents.Replace(vbCrLf, "<br>")
objStreamReader.Close()
end sub
</script>
<html>
<body>
<asp:label runat="server" id="lblNicerOutput" Font-Name="Verdana" />
</body>
</html>
以上代码执行后为什么文本文件中的中文显示成乱码，英文显示是正确的？
<%@ Import Namespace="System.IO" %>
<script runat="server">
sub Page_Load(sender as Object, e as EventArgs)
Dim FILENAME as String = Server.MapPath("sql.txt")
Dim objStreamReader as StreamReader
objStreamReader = File.OpenText(FILENAME)
Dim contents as String = objStreamReader.ReadToEnd()
lblNicerOutput.Text = contents.Replace(vbCrLf, "<br>")
objStreamReader.Close()
end sub
</script>
<html>
<body>
<asp:label runat="server" id="lblNicerOutput" Font-Name="Verdana" />
</body>
</html>
以上代码执行后为什么文本文件中的中文显示成乱码，英文显示是正确的？
panyee 2003-07-28
- 打赏
- 举报
StreamReader sr = File.OpenText("c:\\boot.ini");
string strAll = sr.ReadToEnd();
Response.Write(Server.HtmlEncode(strAll));
Response.End();
string strAll = sr.ReadToEnd();
Response.Write(Server.HtmlEncode(strAll));
Response.End();
