problemer med at oprette filer på domæne
Jeg har nakket dette script et sted, og det virker også, men jeg har ingen anelse om hvor den lægger filen?? - scriptet tilføjer fint, og det er ikke lokalt.. er der en der kan sige mig hvor den bliver placeret - Det er ligegyldiget om jeg skriver c:\fil.txt eller t:\fil.txt, det er den samme fil den tilføjer i..??<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% ' Listing 12.1 Creating and Using a TextStream Object
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2 ' Opens the file using the system default.
Const TristateTrue = -1 ' Opens the file as Unicode.
Const TristateFalse = 0 ' Opens the file as ASCII.
Dim objFS, objTextS, strLine, ip
' ### FIRST PART: APPEND TEXT TO FILE
ip = request.servervariables("Remote_addr")
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists("t:\fil.txt") = True Then
Set objTextS = objFS.OpenTextFile("t:\fil.txt", ForAppending, False, TristateFalse)
Else
Set objTextS = objFS.CreateTextFile("t:\fil.txt",False, False)
End If
objTextS.WriteLine "Der var besøg kl.: " & Now & "." & "fra.: " & ip
objTextS.Close
' ### SECOND PART: READ CONTENT FROM FILE
Set objTextS = objFS.OpenTextFile("t:\fil.txt", ForReading,TristateFalse)
Response.Write "The Content of the File: <BR><BR>" & VbCrLf
Do While objTextS.AtEndOfStream <> True
strLine = objTextS.ReadLine
strLine = Server.HTMLEncode(strLine)
Response.Write strLine & "<BR>" & VbCrLf
Loop
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
