<html> <body> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(2)) Response.Write("<p>指针目前位于文本文件中的位置 " & f.Column & "。</p>") f.Close Set f=Nothing Set fs=Nothing %> </body> </html>