 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
首先你需要一个数据库放置你的广告，我们共用了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.......... 第一步 现在，这个数据库已经建立了，你需要有随机地在我们的网页中显示广告并且计算显示次数 假如是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) %> 返回类别: 教程 上一教程: 浅谈ASP程序的编程与优化 下一教程: 另类扩展名同样执行ASP 您可以阅读与"广告播放和跟踪系统的制作"相关的教程: · 建立一个广告交换及跟踪系统 · 会员系统“找回密码”的制作方式 · 文章系统中“上篇、下篇”效果的制作 · 词语搭配游戏的制作(ASP)三 · 制作我们自己的EBAY(拍卖系统)(4) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
