[asp] file aanmaken en erin schrijven.

Pagina: 1
Acties:
  • 154 views sinds 30-01-2008
  • Reageer

  • nikao
  • Registratie: November 1999
  • Laatst online: 10-02-2022
ok.. ik wil dus dingen uit een form in een file schrijven.. ben eerst wat tutorials afgelopen ..maar als ik simpele voorbeeldjes gewoon copy paste dan werkt het al niet. .krijg gewoon een 500.htm
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<%
  'Create our FSO and TextStream objects
  Dim objFSO, objTS
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  'Create the text file
  Set objTS = objFSO.CreateTextFile("foo.txt")

  'Write "Hello, World" to the file
  objTS.WriteLine("Hello, World!")

  'Clean up!
  objTS.Close
  Set objTS = Nothing
  Set objFSO = Nothing
%>

iemand die ziet waar ik de fout inga?

  • Annie
  • Registratie: Juni 1999
  • Laatst online: 25-11-2021

Annie

amateur megalomaan

zet je "friendly HTTP errors" uit in de browser (extra -> internet options -> advanced).
dan krijg je iig een foutmelding waar je wat aan hebt.

moet nu weg, dus kan niet echt helpen, sorry.

Today's subliminal thought is:


  • nikao
  • Registratie: November 1999
  • Laatst online: 10-02-2022
ah.. dat hielp..thx!.. zie nu dat hij vind dat ik geen permissie heb :P

  • nikao
  • Registratie: November 1999
  • Laatst online: 10-02-2022
hmm .. lekker is dit. als ik een file wil openen zegt ie file not found.. maar hij staat er toch echt..
code:
1
2
3
Const ForReading = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("login.txt", ForReading)

iemand een id?

  • Mart!
  • Registratie: Februari 2000
  • Laatst online: 06-09 18:02
Op vrijdag 30 november 2001 16:43 schreef nikao het volgende:
hmm .. lekker is dit. als ik een file wil openen zegt ie file not found.. maar hij staat er toch echt..
code:
1
2
3
Const ForReading = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("login.txt", ForReading)

iemand een id?
Ehr... waar verwacht hij nu de file? Je zult het exacte pad moeten aangeven waar die file staat. Dat wil je natuurlijk niet, maar daarvoor is de functie server.mappath() uitgevonden.

http://www.learnasp.com/learn/pathmap.asp
http://www.devguru.com/Technologies/asp/quickref/server_mappath.html

  • TweakV
  • Registratie: April 2000
  • Laatst online: 16-03 18:35
Set objTS = objFSO.OpenTextFile(Server.MapPath("login.txt"),8,True)

waarbij 8 = ForAppending en True = mogelijkheid om nieuw bestand aan te maken (voorbeeldje uit colleges) :)

  • nikao
  • Registratie: November 1999
  • Laatst online: 10-02-2022
thx.. dit werkt inderdaad.. ik had dit zo uit een voorbeeld overgenomen.. naam aan dat ie dan in dezelfde dir naar die file zou zoeken.. (beetje net als include en img en local links enzo)..

Verwijderd

Dit werkt goed met asci bestanden, maar hoe doe ik dit met binaire bestanden?

Of kan ik binaire bestanden ook in mssql server verstoppen?

Verwijderd

Niemand??

Verwijderd

Je kunt als volgt binaire files schrijven, er vanuitgaand dat je een string bstrSomeBinairyString hebt met binaire waarden erin.
code:
1
2
3
4
5
6
7
8
9
10
11
'maak FSO object en file
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.CreateTextFile(strPath & strFile)
'loop door de binaire string
For i = 1 To LenB(bstrSomeBinairyString)
   oFile.Write Chr(AscB(MidB(bstrSomeBinairyString), i, 1)))
Next
'sluit file en unload de objecten
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing

Enjoy :)

Verwijderd

code:
1
2
3
4
5
6
7
8
9
10
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set oFile = oFSO.CreateTextFile("dir & filename")
    
    For i = 1 to LenB(bstrSomeBinairyString)
        oFile.Write Chr(AscB(MidB(bstrSomeBinairyString, i, 1)))
    Next
    
    oFile.Close
    Set oFile = Nothing
    Set oFSO = Nothing

Mrx tnks. Je had alleen ff een haakje verkeerd neer gezet, zo werkt ie wel :). Mijn comp doet er alleen 20 seconden over een bestandje van 100 kb, kan het niet iets handiger??

Verwijderd

Op woensdag 29 mei 2002 12:43 schreef boriz het volgende:
Mrx tnks. Je had alleen ff een haakje verkeerd neer gezet, zo werkt ie wel :). Mijn comp doet er alleen 20 seconden over een bestandje van 100 kb, kan het niet iets handiger??
Alleen als je een speciaal component ervoor gebruikt, met VBScript en het FileSystemObject gaat volgens mij niet sneller.

  • PolarBear
  • Registratie: Februari 2001
  • Niet online
Dit is misschien niet echt een helpende opmerking maar als het kan gebruik dan ASP.net dan zijn dit soort zaken een stuk eenvoudiger ...

Verwijderd

Op woensdag 29 mei 2002 19:14 schreef PolarBear het volgende:
Dit is misschien niet echt een helpende opmerking maar als het kan gebruik dan ASP.net dan zijn dit soort zaken een stuk eenvoudiger ...
misschien heb je gelijk. Alleen ik kan geen asp.net, moet ik weer helemaal gaan leren voor zo iets (volgens mij) onbenulligs.
Op woensdag 29 mei 2002 13:04 schreef MrX het volgende:

Alleen als je een speciaal component ervoor gebruikt, met VBScript en het FileSystemObject gaat volgens mij niet sneller.
Wie weet er een goed/bruikbaar component? Ik heb niets kunnen vinden behalve van upload scripts waarvan de bijbehorende componenten het niet ondersteunen om een string ipv een form als input te gebruiken.

Verwijderd

Op donderdag 30 mei 2002 21:53 schreef boriz het volgende:
Wie weet er een goed/bruikbaar component? Ik heb niets kunnen vinden behalve van upload scripts waarvan de bijbehorende componenten het niet ondersteunen om een string ipv een form als input te gebruiken.
Ik zou het niet weten, maar het zou makkelijk te bouwen moeten zijn in VB o.i.d.

Verwijderd

Op donderdag 30 mei 2002 21:57 schreef MrX het volgende:

[..]

Ik zou het niet weten, maar het zou makkelijk te bouwen moeten zijn in VB o.i.d.
ah tnks
Pagina: 1