
<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>