HOME
DOMAIN
WEB HOST
AUTO Site
VPS SERVER
CLOUD HOST
SERVER
HK HOST
AGENT
SERVICE
MyASPPage.asp <%@ Language=VBScript %> <HTML> <BODY> <% CONST ForAppending = 8 set oFSO = server.CreateObject("Scripting.FileSystemObject") 'translate our virtual directory into a physical path strFilePath = Server.MapPath(Request.ServerVariables("PATH_INFO")) 'grab the root of the virtual directory strFilePath = left(strFilePath, (InstrRev(strFilePath, "\"))) strFilePath = strFilePath & "MyFile.txt" 'write out to the screen the full file path Response.Write(strFilePath & "<BR>") set oTS = oFSO.OpenTextFile(strFilePath,ForAppending, true) oTS.writeline("Session Id: " & Session.SessionId & chr(32) & _ "Time: " & Cstr(now())) %> </BODY> </HTML>