|
|
 | Opret og skriv en txt-fil
Fra : Peter Ingemann Hanse~ |
Dato : 11-02-02 08:34 |
|
Jeg skal bruge en noget ASP til at oprette en txt-fil. Hver gang der skrives
til tekstfilen skal teksten skrives i forlængelse af det gamle tekst...
Det skal iøvrigt siges at jeg sidder med Windows XP
Jeg har prøvet Windows XP's eget svar på hvordan man skriver en tekstfil men
det dutter ikke:
<%@ Language=VBScript %>
<html>
<head>
<title>AdRotRedirect file</title>
</head>
<body>
<%
'Create some variables.
dim strLogFile
'Get the physical path of this Web directory so that we know the path
exists.
'The ASP Server object has many useful methods.
strLogFile = Server.MapPath(".") & "\AdRotLog.txt"
'Set some constants for working with files.
Const cForAppending = 8
Const cTristateUseDefault = -2
'Create a FileSystemObject object,
' which gives you access to files and folders on the system.
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Open a handle to the file.
'True means that the file will be created if it doesn't already exist.
Set tsObject = fsoObject.OpenTextFile(strLogFile, cForAppending, True)
'Record the data for the user who has just clicked on an advertisement.
'We have used the Write method of the ASP Request object.
'The ServerVariables collection of the ASP Request object holds vast
' amounts of data for each request made to a Web server.
tsObject.WriteLine "--------------------"
tsObject.WriteLine Date & ", " & Time
tsObject.WriteLine Request.ServerVariables("LOGON_USER")
tsObject.WriteLine Request.ServerVariables("REMOTE_ADDR")
tsObject.WriteLine Request.QueryString("url")
tsObject.WriteLine Request.ServerVariables("HTTP_REFERER")
tsObject.WriteLine Request.ServerVariables("HTTP_USER_AGENT")
tsObject.Close
'Redirect to the Advertiser's Web site using the Redirect method
' of the ASP Response object.
'When the AdRotator component calls AdRotRedirect.asp, it
' automatically passes in the advertiser's URL in the QueryString.
Response.Redirect Request.QueryString("url")
%>
</body>
</html>
Derefter har jeg prøvet at oprette en Dll-fil, kalde den men efterhånden har
jeg fundet ud af at Dll-filer ikke kan skrive filer, kund lave beregninger
som funktioner.
Hvordan skriver jeg en Txt-fil ?
Og nu mens jeg er igang...hvordan laver jeg en bibliotekstruktur hvor hver
enkel fil linker til sig selv ?
Hilsen fra Peter Ingemann Hansen
Flower me at 89253469
| |
 Thomas Smedebøl (12-02-2002)
| Kommentar
Fra : Thomas Smedebøl |
Dato : 12-02-02 15:52 |
|
"Peter Ingemann Hansen" <dingemann@hotmail.com> skrev i en meddelelse
news:a47s61$h3a$1@news.net.uni-c.dk...
> Jeg skal bruge en noget ASP til at oprette en txt-fil. Hver gang der
skrives
> til tekstfilen skal teksten skrives i forlængelse af det gamle tekst...
> Hvordan skriver jeg en Txt-fil ?
> Og nu mens jeg er igang...hvordan laver jeg en bibliotekstruktur hvor hver
> enkel fil linker til sig selv ?
Følgende skulle dække dit behov: Held og lykke!
Mvh Thomas
<%
FUNCTION add_to_file(input_text, input_filename) 'tilføjer et stykke tekst
til en fil Hvis filen ikke findes, oprettes den - det er en forudsætning
at biblioteket findes!
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
input_filename = server.MapPath(input_filename)
SET objFS=Server.CreateObject("Scripting.FileSystemObject")
IF objFS.FileExists(input_filename) = TRUE THEN
SET objTextS = objFS.OpenTextFile(input_filename, ForAppending, FALSE,
TristateFalse)
ELSE
SET objTextS = objFS.CreateTextFile(input_filename, FALSE, FALSE)
END IF
input_text = "<%" & vbcrlf & input_text & vbCrLf & "%" & chr(62)
objTextS.WriteLine input_text
objTextS.Close
SET objTextS = NOTHING
SET objFS = NOTHING
END FUNCTION
%>
| |
|
|