建立一个广告交换及跟踪系统---广告-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>asp专区>>正文	新版上线！[旧版]

注:打开慢时请稍等

建立一个广告交换及跟踪系统

http://www.iyit.net 日期：2006-6-7 10:50:26 来源：不详点击：

【参加讨论】 First you need a database to store your banners. We are using 2 tables; tblBanners and tblVendors:

tblBanners:
bID - auto number (banner ID)
bBanner - text (image file)
bUsedViews - number (# of views the banner has received)
bTotalViews - number (# of impressions the vendor has paid for)
bClicks - number (# of clicks the banner has received)
bURL - text (URL of the site)
bShow - yes/no (used to show and hide banners)
vID - number (vendor ID)

tblVendors:
vID - autonumber (vendor ID - links to tblBanners.vID)
vName - text (Vendor's name)
etc..........

Now that the database is set up, we need to randomly display the banner on our pages and increment the 'views' by 1:

First you need to open your database connection on the page you want your banner to be viewed on. We use a DSN-less connection; you can find it at the following address:

http://www.askasp.com/toolbox.asp?Expand=True&ID=2#tool

Here is what the SQL might look like:

SQL = "SELECT tblBanners.bID, tblBanners.bImage, tblBanners.bUsedViews, tblBanners.bLastViewed "
SQL = SQL & "FROM tblBanners "
SQL = SQL & "WHERE (((tblBanners.bShow)=True) AND ((tblBanners.bTotalViews)>[tblBanners].[bUsedViews]));"

In the above SQL, we are checking for the 'bShow' flag to be True, and that the UsedViews is less than the TotalViews.

Now that we have all of the banners that we can display, we need to display a random one. We can do this by grabbing the total number of banners, moving to the first record, and the moving to a random number, for example:

Dim rndMax, rndNumber

Randomize

rndMax = Int(RecordSet.RecordCount)
rndNumber = Int(RND * rndMax)

RecordSet.Move rndNumber

Now that we have moved to our random banner, we now need to display the banner on our page (I am sure you know how to do that, so I wont bore you with the details). However, Instead of using the banner's URL in the link, we are going to use a redirect page so we can count the clicks. All we need to do is use the banner ID in the HREF tag, for example:

a href="redirect.asp?ID=<%= BANNER ID %>"

Now that we have the link set up, we can move on to our redirect.asp page. On this page, we are going to grab the ID that we are passing in the Query String, and grabbing the RecordSet that matches. Once we have the RecordSet, we can grab the banner's URL, increase the Clicks by 1, and send the user to the destination URL. Below is the code for the redirect.asp page:

<%
If Request.QueryString("ID") = "" Then
Response.Redirect("default.asp")
End If

Dim varSiteToRedirect, varURLToRedirect

varSiteToRedirect = Int(Request.QueryString("ID"))

SQL = "SELECT tblBanners.bID, tblBanners.bURL, tblBanners.bClicks "
SQL = SQL & "FROM tblBanners "
SQL = SQL & "WHERE (((tblBanners.bID)=" & varSiteToRedirect & "));"

varDatabaseName = "ask_asp_data.mdb"
%>



<%
If Not RecordSet.BOF Then
RecordSet.MoveFirst
End If

varURLToRedirect = RecordSet.Fields("bURL")

RecordSet.Fields("bClicks") = (RecordSet.Fields("bClicks") + 1)
RecordSet.Update
%>



<% Response.Redirect(varURLToRedirect) %>

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：如何制作无状态的ASP组件
下一篇：XMLHTTP+javascript+Asp写得聊天室，无刷新实现（六）
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

用php实现广告轮播	随机广告显示(PHP函数)	用PHP实现小型站点广告管理
一个广告轮播系统的例子（内含文件上传	动态显示图片的函数（显示广告条）	灵活实用的页面广告实例
动态显示图片的函数（显示广告条）	广告播放和跟踪系统的制作	动态广告管理程序制作例子
一个基于ASP的标题广告管理系统（一）	一个基于ASP的标题广告管理系统（二）	一个基于ASP的标题广告管理系统（三）
DW MX实例：动态广告管理	打击广告防毒部分QQ号码需重新激活	教你清除QQ空间右上方广告
用AJAX跟踪Google Adsense广告点击	动态显示图片的函数（显示广告条）	广告轮播
摆脱广告骚扰还我清静网络世界	什么是广告软件Adware	什么是广告软件Adware
狙击疯狂的 Windows 信使广告	网站广告怎样做效果最好？	各类个人网站有效地赚广告费体会谈

最新更新

热点排行

推荐新闻

ASP初学者常犯的几个错误

rs.open sql,conn,1,1全接触

处理较长文章，添加 …… 效果

[ASP]利用 xmlhttp 分块上传文件

使用PHP和XSL stylesheets转换XML文档

VS .net 2003调试javascript中两个杂症

datagrid编辑、修改、删除、翻页例子

rs.open sql,conn,1,1全接触

exeplorer.exe错误的问题的总结、解决

解决Windows中的explorer.exe出错

Authorware7.0基础与实例教程连载第5

巧用ACDSee 8.0截取QQ表情每一帧

解除瑞星诺顿遗留下的杀毒兼容问题

第一款开源AJAX安全扫描工具Sprajax

	友情链接

	Copyrights © 2004-2006 iYiT.Net All Rights Reserved. 网站合作、广告联系QQ:147007642、466949678
	易特网络技术冀ICP备05011851号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。