源代码:
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(2)) Response.Write("<p>The cursor is now standing in position " & f.Column & " in the text file.</p>") f.Close Set f=Nothing Set fs=Nothing %></FONT> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(2)) Response.Write("<p>The cursor is now standing in position " & f.Column & " in the text file.</p>") f.Close Set f=Nothing Set fs=Nothing %></FONT> </body> </html>