asp kodları logo

ASP Kodları, ASP Script, ASP örnekleri, ASP Programları, ASP dersleri, ASP giriş, ASP öğreniyorum

| ASP ile ilgili aradığınız tüm kodlar ve örnekler burada!
Oca/09

12

ASP'de dönüşümlü reklam yapmak

Ö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:

<%@ 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;" &amp; _ "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 = "&lt;img src=""" &amp; Banners("Image") &amp; """ alt=""" &amp; Banners("Hint") &amp; """&gt;" ResponseString = "&lt;a href=""RedirectMe.asp?URL=" &amp; Banners("URL")
ResponseString = ResponseString &amp; "&amp;BannerID=" &amp; Banners("BannerID") &amp; """&gt;" &amp; ImageString &amp; "&lt;/a&gt;"
Response.Write ResponseString Response.End
'----- Clean up memory Banners.Close MyConnection.Close
Set Banners=Nothing Set MyConnection=Nothing %&gt;

Aşağıdaki kod ise yönlendireceğiniz adresi gösterir

RedirectMe.asp

 &lt;%@ Language=VBScript %&gt;
&lt;%
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;” &amp; _
“PWD=YourPWD;DATABASE=YourDATABASE”
MyConnection.Open

‘—– Increment Clicked field value
SQLBanners = “Select * from Banners Where BannerID=” &amp; 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
%>

RSS Feed

Henüz yorum yapılmamış.

Leave a comment!

<<

>>

Bul!

İletişim

Soru, öneri, tanıtım yazısı veya reklam için adresimiz: info[at]sozcukcevir.com