مدیریت تبلیغات سایت

[mohandesan]

من نیاز بهیک کامپوننت مناسب برای ایجاد تبلیغات و همچنین مدیریت مناسب تبلیغات مثلا یه تبلیغ در یک ماه 3000 بار نمایش داده و موارد دیگه که توی تبلیغات نیازه .راستش از adrotator استفاده کردم ولی اصلا عکس ها رو نشون نمیده اگر کمک کنید ممنون میشم
یا حق

[twelve]

یک وب یوزر کنترل درست کن و هر اونچه که اینجا گفتی اونجا پیاده کن ، برای نشون دادن عکس ها (اگر میخوای دسته ای نشون بدی ) از دیتالیست کمک بگیر
البته Adrotator هم کامپوننت خوبیه ، مسیر عکس ها و لینکاشون رو از فایل xml میخونه و میتونی با اون عکس ها رو با یک نظم خاص به صورت تصادفی نشون بدی
البته در این زمینه میتونی تو سایت هم جستجو کنی. زیاد بحث شده.

[mohammadasd]

دمت گرم با نکاتت

[milade]

دمت گرم با نکاتت

بهتر بود بگی ممنون از نکاتت(قصد جسارت ندارم)
اقا mohandesan
در مورد کارت می تونی کد نویسی کنی (بخوای راهنماییت میکنم)

[tc1000]

یک مثال کوچیک میزنی بی زحمت

[milade]

سلام
اینم کد من برای دوستان عزیزم
اول توی جدولتون با نام ads و مشخصات زیر درست کنید
id=int ,name=nvarchar ,click=int ,clicked=int ,more=nvarchar
id=int که کد تبلیغه mane=nvarchar که نام تبلیغه
click=int تعدادی که باید کلیک بشه clicked=int کلیک شده تا حالا
more=nvarchar اطلاعات در مورد تبلیغ یا لینک
خوب کد نویسی
اول کلاس رو توی صفحه می اریم

system.data.sql
imports system.data.sqlclient[/quote ]
سپس کد مربوط به نمایش

Dim con = "کد اتصال به پایگاه داده"
Dim code AsInteger = 1 'این ایدی تبلیغ رو می ده که می شه با هر چی عوضش کرد
Dim sq AsString = "select * from ads where id='@id'"
Dim cmd AsNew SqlCommand(sq, con)
cmd.Parameters.AddWithValue("@id", code)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
If dr.Read Then
If dr("click") <= dr("clicked") Then' اگه تعداد کلیکها بیشتر از اونی بود که باید نمایش داده بشه تبلیغ حذف بشه
Dim sq2 AsString = "delete from ads where id='@id'"
Dim cmd2 AsNew SqlCommand(sq2, con)
cmd2.Parameters.AddWithValue("@id", code)
cmd.ExecuteNonQuery()
Else
'به تعداد نمایشها یک عدد اضافه بشه
Dim sq3 AsString = "update * from ads where id='@id'"
Dim cmd3 AsNew SqlCommand(sq3, con)
cmd.ExecuteNonQuery()
cmd3.Parameters.AddWithValue("@id", code)
'نمایش محصول
lbl.text = dr("name")
lbli2.text = dr("more")
'va dighar chiza
EndIf
Else
Response.Write("not found")
EndIf

که 2 تا لیبل اضافه کنی حله
راستی اگه می خوای رندم نمایش بشه با تابه random(هر عددی) که هر عددی تعداد کل تبلیغاتت هست نشون بدی
اگه مشکل داشت ببخشید بگید حل می کنم (اخه تند نوشتم)
مشکل بود بگو

[milade]

چی شد؟
از کدوم روش استفاده کردید؟