Ik gebruik het onderstande script (ja ik heb het niet zelf getyped) om jpg afbeeldingen te dwingen om te downloaden. (dat ze dus niet in de browser worden geopend maar een 'open' 'save as' venster krijgen.
alleen wanneer ik dit script gebruik word de cpu enkele seconde tot 100% belast. dit met bestanden van maximaal 1 mb. het duurt dus echt enige tijd voordat je het venster krijgt om he op te downloaden.
de machine waarom hij draaid is een:
pentium 4 1.8 GHZ
1 gig aan ram
OS: XP-pro
server: IIS
(meer gegevens heb ik zo niet)
ik vroeg me nu af of die normaal is en wat ik hier aan kan doen. Ik weet wel dat jullie geen helpdesk zijn maar toch...
En wanneer ik een gelijksoortige functie in php ga gebruiken hou ik dan het zelfde probleem?
al vast bedankt, peter
alleen wanneer ik dit script gebruik word de cpu enkele seconde tot 100% belast. dit met bestanden van maximaal 1 mb. het duurt dus echt enige tijd voordat je het venster krijgt om he op te downloaden.
de machine waarom hij draaid is een:
pentium 4 1.8 GHZ
1 gig aan ram
OS: XP-pro
server: IIS
(meer gegevens heb ik zo niet)
ik vroeg me nu af of die normaal is en wat ik hier aan kan doen. Ik weet wel dat jullie geen helpdesk zijn maar toch...
En wanneer ik een gelijksoortige functie in php ga gebruiken hou ik dan het zelfde probleem?
al vast bedankt, peter
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
FileName = Request("wat")
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Const TristateFalse = 0
Const TristateMixed = -2
Const TristateTrue = -1
Const TristateUseDefault = -2
Dim FSO
Dim TS
Dim strFile
Dim resolutie
resolutie = "low"
If (Request("res") <> "") Then
resolutie = Request("res")
End If
If resolutie = "high" Then
strFile = Server.MapPath("../../visuals/highres/"&(Filename))
ElseIf resolutie = "low" Then
strFile = Server.MapPath("../../visuals/preview/"&(Filename))
End If
Dim strFileSave: strFileSave = Filename
Call Response.AddHeader("Content-Disposition","attachment; filename=""" & strFileSave & """")
Response.ContentType = "bad/type"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.GetFile(strFile).OpenAsTextStream(ForReading,TristateTrue)
Do While Not (TS.AtEndOfStream)
Response.BinaryWrite(TS.Read(1))
Loop
TS.Close
Set TS = Nothing
Set FSO = Nothing
Response.End
%> |