film sitesi için vip linkler

12-07-2010, 12:26:34

Üyeliği durduruldu

merhaba film sitesi kuruyorumda herşeyini yazdım kodladım vip üyeler için libk vereceğim ama diğer kullancııalr linklere ulaşamasın diye linkleri şifrelemem gerek yanı rondomize say bu scriptin bir örneği var elimde ama iss default ayarları 4 mbit e kadar izin veriyormus nasıl çözeriz ?

<%@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
%>

12-07-2010, 23:07:51

#2