Genere en fil med ASP

Du kan skrive til en en fil sådan her og den åbner de sådan den overskrives hver gang og hvis den ikke findes oprettes filen:

Du kan selv rette filnavet til så det passer og evt sti til filen hvis den ikke skal ligge i samme folder.

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
filnavn = "noget.asp"
set f=fs.OpenTextFile(Server.MapPath(filnavn),2,true)

f.WriteLine("This text will be added to the end of file")
f.Close
set f=Nothing
set fs=Nothing
%>

Så istedet for bare at skrive "This text will be added to the end of file" kan du tilføje det med din database:


<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
filnavn = "noget.asp"
set f=fs.OpenTextFile(Server.MapPath(filnavn),2,true)

Set conn = Server.CreateObject("ADODB.Conneection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.Mappath("/mydb.mdb")
SQL = "SELECT * FROM tabelnavn"
Set rs = Conn.Execute(SQL)
do while not rs.EOF
  f.WriteLine rs("kolonne")
  rs.Movenext
loop
f.Close
set f=Nothing
set fs=Nothing
%>

Okay, du skal nok få point men vil du ikke beskrive hvad der gør hvad

hvis der står noget i filen bliver det så slettet

Ja hvis der står noget i filen bliver det slettet.

Det som man kan styre det med er talle i denne linje:
set f=fs.OpenTextFile(Server.MapPath(filnavn),2,true)

Hvis der står 2 som der gør overskrives filen. true betyder bare at hvis filen ikke findes skal den oprette filen.


For at skrive en linje til filen bruger man:
f.WriteLine  "TEKSTE HER"

takker

ved du hvordan jeg laver en folder hvis du gør får du 60 point får det ??
eller tjekker om folderen er der allerede?

Jeps du kan bruge FSO sådan her:


<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\asp") = false Then
  set f=fs.CreateFolder("c:\asp")
End If

set fs=nothing
%>


Du skal være opmærksom på den kun kan oprette en ny folder i dybten.
Hvis man har ikke har c:\temp og vil oprette temp\asp c:\temp\asp så fejler den.
Det fint med de point jeg har fået ;)

Jeg har engang lavet denne kode som kan oprette X antal folderes vil at loop igennem dem:


<%
Set fso = CreateObject("Scripting.FileSystemObject")

'Det skal være relativ sti
nyefolder = "TEST/ASP/FOLDER/"

if right(nyefolder,1)="/" then nyefolder = left(nyefolder,len(nyefolder)-1)
nyfolderArr = Split(nyefolder, "/")

for i = 0 to ubound(nyfolderArr)
  Response.write nyfolderArr(i) & " - "
next
Response.write "<br>"

for i = 0 to ubound(nyfolderArr)
  sti = sti & nyfolderArr(i) & "/"
  if sti <> "/" then
    if fso.FolderExists(Server.Mappath(sti)) = false then
      Set rootFolder = fso.CreateFolder(Server.Mappath(sti)) 
    end if
  end if
next
%>