چگونه DownLoad ها رو کنترل کنم

[shahramasp]

بازم یه سوال دیگه !
چگونه می توانم یک لینکی رو که آدرسش یک فایل رو درست کنم که به محز کلیک روی آن پنجره مربوط به دانلود باز بشه . ضمنا می خوام تعداد دانلو های هر فایل رو بدونم کمکم کنید لطفا
متشکرم

[ali_kolahdoozan]

هنگام کلیک روی لینک توی دیتا بیس تعداد رو ببر بالا از حدی که دلت می خاد وقتی گذشت دیگه اجازه دانلود نده

[SalarSoft]

با استفاده از این کلاس می تونی در یک صفحه عمل دانلود رو برای کاربر انجام بدی!
در ضمن این کلاس از Resumable download هم پشتیبانی می کنه!

[shahramasp]

ممنون کلا وی بی ندارین ممنون می شم

[SalarSoft]

این هم از VB

[saeid taheri]

آیا در صفحه html هم می شود تعداد کلیک روی صفحه را مشخص کرد ؟ منظورم بدون استفاده از دیتابیس است

[shahramasp]

خوشبختانه بازم خودم پیدا کردم


Dim strRequest As String = "~/UserFileComment/Test.Pdf"
'Request.QueryString("file") '-- if something was passed to the file querystring
If strRequest <> "" Then 'get absolute path of the file
Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
If file.Exists Then 'set appropriate headers
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(file.FullName)
Response.End() 'if file does not exist
Else
Response.Write("This file does not exist.")
End If 'nothing in the URL as HTTP GET
Else
Response.Write("Please provide a file to download.")
End If

[hamed_bostan]

دوست عزیز اگر اینطوری می نوشتید چقدر بهتر بود





Dim strRequest As String = "~/UserFileComment/Test.Pdf"
'Request.QueryString("file") '-- if something was passed to the file querystring
If strRequest <> "" Then 'get absolute path of the file
Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
If file.Exists Then 'set appropriate headers
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(file.FullName)
Response.End() 'if file does not exist
Else
Response.Write("This file does not exist.")
End If 'nothing in the URL as HTTP GET
Else
Response.Write("Please provide a file to download.")
End If