广告播放和跟踪系统的制作---广告-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

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

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

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




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

注:打开慢时请稍等

广告播放和跟踪系统的制作

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

【参加讨论】首先你需要一个数据库放置你的广告，我们共用了2个表： blBanners 和 tblVendors表：
tblBanners结构表如下:
bID - auto number (广告ID)
bBanner - text (图像文件)
bUsedViews - number (# 标准的广告显示次数)
bTotalViews - number (# of impressions the vendor has paid for)
bClicks - number (# 标准的广告点击次数)
bURL - text (网站URL)
bShow - yes/no (用来标识广告是显示还是隐藏)
vID - number (卖主 ID)

tblVendors表结构如下:
vID - autonumber (卖主 ID - 链到tblBanners.vID)
vName - text (卖主的名字)
etc..........

第一步

现在，这个数据库已经建立了，你需要有随机地在我们的网页中显示广告并且计算显示次数。:
DSN链接不讲了，如果不会，你可以到以下地址看看：
http://www.askasp.com/toolbox.asp?Expand=True&ID=2#tool

如果是SQL，可以采用下面的相似语句:

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]));"

在上面的SQL语句中，只有当bShow标志是True而且UsedViews(显示客户广告次数)小于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) %>

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：动态广告管理程序制作例子
下一篇：用Access制作一个功能完善的论坛（源程序）
转载请注明来源：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号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。