8-05.asp

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

<%
path = Server.MapPath("test.log")
set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
set MyTextFile = MyFileObject.OpenTextFile(path,8,true)
MyTextFile.WriteLine(Request.ServerVariables("REMOTE_ADDR"))
MyTextFile.Close()
%>