📄 listing1304.aspx
字号:
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
sub Page_Load(obj as object, e as eventargs)
dim fs as new FileStream(Server.MapPath("log.txt"), FileMode.OpenOrCreate)
dim objReader as new StreamReader(fs)
while objReader.Peek() > -1
lblMessage.Text += objReader.ReadLine & "<br>"
end while
objReader.Close
objReader = nothing
fs.close
lblMessage.Text += "<P>"
dim f as File(Server.MapPath("log.txt"))
objReader = f.OpenText
lblMessage.Text += objReader.Read & "<br>"
lblMessage.Text += Strings.Chr(objReader.Read) & "<br>"
objReader.Close
lblMessage.Text += "<P>"
dim s as stream
s = f.Open(FileMode.OpenOrCreate, FileAccess.Read)
objReader = new StreamReader(s)
lblMessage.Text += objReader.ReadLine & "<br>"
s.Close
objReader.Close
lblMessage.Text += "<P>"
objReader = new StreamReader(Server.MapPath("log.txt"))
dim arrString() as Char = new Char(10) {}
objReader.Read(arrString, 0, 10)
for i = 0 to Ubound(arrString) - 1
lblMessage.Text += arrString(i)
next
objReader.Close
lblMessage.Text += "<P>"
objReader = new StreamReader(Server.MapPath("log.txt"))
lblMessage.Text += objReader.ReadToEnd
objReader.Close
end sub
</script>
<html><body>
<form runat="server">
<asp:label id="lblMessage" runat=server />
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -