首页 >> 读书频道 >> 电脑 >> 广告播放和跟踪系统的制作
 
· 制作一个个人搜索引擎(源
· 用ASP开发一个在线考试
· 用ASP开发一个在线考试
· 用ASP开发一个在线考试
· 用ASP开发一个在线考试
· 几例在ASP存储过程的使
· 从数据库中动态选取下拉列
· 纯编码实现数据库的建立或
· 用XML结合数据库,给服
· 用VB编写ActiveX
· 开辟一条自由ASP快车道
· 调试 ASP 中使用的
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP实例 2006-9-10

 

首先你需要一个数据库放置你的广告,我们共用了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"
%>
<!--#include file="common/data_conn_open.asp"-->
<%
If Not RecordSet.BOF Then
RecordSet.MoveFirst
End If
varURLToRedirect = RecordSet.Fields("bURL")
RecordSet.Fields("bClicks") = (RecordSet.Fields("bClicks") + 1)
RecordSet.Update
%>
<!--#include file="common/data_conn_close.asp"-->
<% Response.Redirect(varURLToRedirect) %>

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

[ 1 ]
广告播放和跟踪系统的制作 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑