8-04.asp

asp开发 asp开发 asp开发 asp开发

<%
path = Server.MapPath("test.txt")
set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
set MyTextFile = MyFileObject.OpenTextFile(path)
While Not MyTextFile.AtEndOfLine
	Response.Write(MyTextFile.Read(1))
Wend
MyTextFile.Close()
%>