MSI K7T 266 PRO | AMD T-bird 1400Mhz 42 idle 49 stressed | 2 * 256 MB PC2100 DDR Major Major | 120 GB IBM Deskstar + 40 GB IBM Deskstar | TNT 2 M64 Gainward PCI | Pioneer DVD-106S | LiteOn LDW 401S @ 411S DVD +/- R(W) | Enlight 300 Watt| IIyama 19"
Overigens zou ik geen enkele reden zien waarom je geen ftp access zou geven.
E.v. zou je ook nog de juist http headers kunnen meesturen voor een 'attachment' ( response.addheader -> content disposition )
Beware of listening to the imposter; you are undone if you once forget that the fruits of the earth belong to us all, and the earth itself to nobody.
Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...
groeten
MSI K7T 266 PRO | AMD T-bird 1400Mhz 42 idle 49 stressed | 2 * 256 MB PC2100 DDR Major Major | 120 GB IBM Deskstar + 40 GB IBM Deskstar | TNT 2 M64 Gainward PCI | Pioneer DVD-106S | LiteOn LDW 401S @ 411S DVD +/- R(W) | Enlight 300 Watt| IIyama 19"
Met het ADODB.stream object kan het wel.
Exact expert nodig?
is er iemand die me wat gedetaileerdere informatie kan verschaffen over hoe ik het kan doen, en wellicht wat meer aanwijzingen dan per aangeboden oplossing want ik ben nu al 2 dagen aan het zoeken maar kom er echt niet uit.
op de server is zo weet ik nu ADO 2.0 aanwezig.
Alvast dank
MSI K7T 266 PRO | AMD T-bird 1400Mhz 42 idle 49 stressed | 2 * 256 MB PC2100 DDR Major Major | 120 GB IBM Deskstar + 40 GB IBM Deskstar | TNT 2 M64 Gainward PCI | Pioneer DVD-106S | LiteOn LDW 401S @ 411S DVD +/- R(W) | Enlight 300 Watt| IIyama 19"
ik neem aan dat je wilt dat ze de database kunnen downloaden en dat die niet gelijk geopend wordt; je moet response.contenttype dan waarschijnlijk op "application/x-download" zetten
<%
Response.Buffer = TRUE
Response.Clear
Response.Expires = 0
Response.ContentType = "application/msword"
strMyPath = "C:\mydoc.doc"
Response.AddHeader "Content-Disposition","attachment;filename=" & "mydownloadeddoc.doc"
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")
Set objFile = objFileSys.GetFile(strMyPath)
FileSize = objFile.Size
Set objFile = Nothing
Set objFile = objFileSys.OpenTextFile(strMyPath, 1, false, -1)
Response.BinaryWrite(objFile.Read(FileSize))
Set objFile = Nothing
Set objFileSys = Nothing
Response.Flush
%>
Verwijderd
Wij tweakers doen elkaar permanent de groeten. Het is dus niet nodig om steeds ruimteverspillende "greetz [user]" of iets dergelijks onder je post te plakken. Als je perse zoiets wilt kun je daar je signature voor gebruiken (zie latere uitleg).
Bij mijn weten kan het fout gaan met het filesystemobject aangezien die (voor zover ik weet) niet binair maar als tekst inleest...Op dinsdag 05 februari 2002 21:12 schreef gotcha het volgende:
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")
Dit is een stukje met het Ado stream object...
1
2
3
4
5
6
7
8
| Dim oStream, data
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 1 ' adTypeBinary
oStream.Open
oStream.LoadFromFile("C:\data.mdb")
data = oStream.Read
oStream.Close
Set oStream = Nothing |
Waarna de rest volgens mij wel moet werken ('data' met binarywrite uitspugen), alleen zou ik de contenttype niet op msword zetten, het lijkt me dat dat iets als ms-access zou moeten zijn...
Exact expert nodig?
ja, ik had er ook ff m'n twijfels over. het werkte wel, maar ik weet zeker dat ik het ooit anders heb opgelost. kon dat alleen nergens meer vinden.Bij mijn weten kan het fout gaan met het filesystemobject aangezien die (voor zover ik weet) niet binair maar als tekst inleest...
en contenttype staat hier idd op msword aangezien het een (gejat) stukje samplecode is