کد شمارنده دانلود

[arta.nasiri]

سلام و خسته نباشید...
یک اسکریبت دانلود می خوام که دانلود رو محدود کنه
یعنی تعریف کنم که مثلا این فایل فقط 100 بار دانلود بشه...شمارند هم داشته باشه...و از 100 به 0 برسه...وقتی هم تموم شد یه
پیغامی بده...
ممنون میشم آگه کمکم کنید...

[milade]

خوب کاری که نداره اگه فایل توی db هست یه فیلد اضافه کن بعد بهش 100 بده و با دستور update ازش کم کن .اگه نه توی مسیر هست بازم مسیر رو بریز تو db و همون کار رو تکرار کن
بای

[arta.nasiri]

میشه یه راهنمایی کنید در مورد کد این شمارنده

[saina2006]

برای مثال از کد زیر میتونی استفاده کنی


Dim count As Integer = 0
Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;User Instance=True")
Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM Table1 WHERE ID=@ID", con)
cmd.Parameters.AddWithValue("@ID", ID)
con.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader
If reader.Read Then
count = Int32.Parse(reader.GetValue(1))
End If
If count > 0 Then
'Let the User download
cmd.CommandText = "UPDATE Table1 SET Count = @Count"
cmd.Parameters.AddWithValue("@Count", count - 1)
reader.Close()
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
Else
Response.Write("You can not download this file")
End If
cmd.Dispose()
cmd = Nothing
con.Close()
con.Dispose()
con = Nothing