#1  
Alt 06-02-2013, 11:27 PM
WO Üyesi
 
Üyelik tarihi: Jun 2013
Yaş: 26
Mesajlar: 81
Tecrübe Puanı: 399
Free STYLE is on a distinguished road
Standart Asp'de sürekli dönen değişen reklam

Öncelikle tablomuzu oluşturalım. ( SQL kullanıyoruz )

create table Banners ( BannerID int identity PRIMARY KEY, Image varchar(100), URL varchar(100), Hint varchar(100), Shown int, Clicked int, )

Bu kodları reklamın görüntülenmesini istediğimiz yere ekliyoruz:

Kod:
<%@ Language=VBScript %> 
<% 
Response.Buffer=True ‘Define our ADO constants const adOpenStatic = 3 const adLockOptimistic = 3 ‘—– Create and Open Connection 

Set MyConnection = Server.CreateObject("ADODB.Connection") MyConnection.ConnectionString = "PROVIDER=SQLOLEDB;SERVER=YourServerName;UID=YourUID;" & _ "PWD=YourPWD;DATABASE=YourDATABASE" MyConnection.Open '----- Pick Ad from database 

SQLBanners = "Select * from Banners" Set Banners = 

Server.CreateObject("ADODB.Recordset") 

Banners.CursorType = adOpenStatic 

Banners.LockType = adLockOptimistic 

Banners.Open SQLBanners, MyConnection 

Randomize Timer 

Banners.Move Int(RND * CInt(Banners.RecordCount)) 

'----- Increment Shown field value 

Banners("Shown") = Banners("Shown") + 1 Banners.Update 

'----- Create and display Response 

ImageString = "<img src=""" & Banners("Image") & """ alt=""" & Banners("Hint") & """>" ResponseString = "<a href=""RedirectMe.asp?URL=" & Banners("URL") 

ResponseString = ResponseString & "&BannerID=" & Banners("BannerID") & """>" & ImageString & "</a>" 

Response.Write ResponseString Response.End 

'----- Clean up memory Banners.Close MyConnection.Close 

Set Banners=Nothing Set MyConnection=Nothing %>
Aşağıdaki kod ise yönlendireceğiniz adresi gösterir

RedirectMe.asp

Kod:
<%@ Language=VBScript %> 
<% 
Response.Buffer=True 

‘Define our ADO constants 
const adOpenStatic = 3 
const adLockOptimistic = 3 

‘—– Create and Open Connection 
Set MyConnection = Server.CreateObject(“ADODB.Connection”) 
MyConnection.ConnectionString = “PROVIDER=SQLOLEDB;SERVER=YourServerName;UID=YourUID;” & _ 
“PWD=YourPWD;DATABASE=YourDATABASE” 
MyConnection.Open 

‘—– Increment Clicked field value 
SQLBanners = “Select * from Banners Where BannerID=” & Request.QueryString(“BannerID”) 
Set Banners = Server.CreateObject(“ADODB.Recordset”) 
Banners.CursorType = adOpenStatic 
Banners.LockType = adLockOptimistic 
Banners.Open SQLBanners, MyConnection 
Banners(“Clicked”) = Banners(“Clicked”) + 1 
Banners.Update 
Response.Redirect(Request.QueryString(“URL”)) 
Response.End 

‘—– Clean up memory 
Banners.Close 
MyConnection.Close 
Set Banners=Nothing 
Set MyConnection=Nothing 
%>
Alıntı ile Cevapla
Cevapla

Bookmarks

Etiketler
aspde, değişen, dönen, reklam, sürekli

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Forum Sosyal
Powered by vBulletin® Webster Edition
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1 ©2011, Crawlability, Inc.
- Forum

Tasarım : VampRens
Wmofisi.Com Her Hakkı Saklıdır

antalya escort adana escort ankara escort hatay escort bodrum escort gaziantep escort kayseri escort samsun escort afyon escort manisa escort