<%@language="vbscript"%>

<%
dim stream
dim content
dim filename
dim saveas
dim bunu

Dim ID
for i = 1 to 5
randomize
z = 90
a = 65
pass = pass + Chr(Int((z - a + 1) * Rnd + a))
s_9 = 57
s_0 = 48
pass = pass + Chr(Int((s_9 - s_0 + 1) * Rnd + s_0))
next
ID=pass




saveas= date () & "__" & ID & "Gizli_Link.zip"
filename = "dosya/dosya.zip"
filename=server.mappath(filename)
response.contenttype = "application/x-msdownload"
response.addheader "content-transfer-encoding", "binary"
response.addheader "content-disposition", "attachment;filename="& saveas
set stream = server.createobject("adodb.stream")
stream.mode = 3
stream.open
stream.loadfromfile filename
content=stream.readtext(-1)
response.binarywrite(content)
stream.close
set stream=nothing
content=null
%>


merhaba bu kod 4 mbit e kadar perdeleme yapıyor bu sorunu nasıl çözeriz