一个基于ASP的标题广告管理系统（二）---asp,广告-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

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

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

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




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

注:打开慢时请稍等

一个基于ASP的标题广告管理系统（二）

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

【参加讨论】二、管理功能

　　管理部分共有12个asp文件，这些脚本的主要功能分别如下：

BannerAdminLogin.asp：管理功能的登录页面。默认的用户名称是“ADMIN USER”，密码是“PASSWORD”。
CheckBannerAdministrationPassword.asp：检查使用管理功能的用户的密码。
NotLoggedIn.asp：“没有登录”提示页面，如果在登录之前访问管理页面，则显示该页面。
BannerAdministration.asp：这是管理功能的主界面，列出了所有的广告，并提供两个按钮。这两个按钮分别用于新增广告和新增广告客户。点击广告客户名字可以编辑该广告客户，点击广告文本可以编辑该广告。
Advertisement.asp：输入新广告的信息，或编辑当前广告信息，或调用DeleteAdvertisement.asp删除当前广告。
Advertiser.asp：输入新广告客户的信息，或编辑当前广告客户信息，或调用
DeleteAdvertiser.asp删除当前广告客户。
AddAdvertisement.asp：新增广告记录，从Advertisement.asp表单获取信息，存储到数据库。
AddAdvertiser.asp：新增广告客户记录，从Advertiser.asp表单获取信息，存储到数据库。
UpdateAdvertisement.asp：从Advertisement.asp表单获取信息，更新数据库中与当前广告具有相同AdvertisementID的记录。
UpdateAdvertiser.asp：获取Advertiser.asp表单信息，更新数据库中与当前广告客户具有相同AdvertiserID的记录。
DeleteAdvertisement.asp：根据当前选中广告的AdvertisementID，删除数据库中的相应记录。注意：删除并返回管理主界面后有时需要重新刷新。
DeleteAdvertiser.asp：根据当前选中广告客户的AdvertiserID，删除相应的数据库记录。

　　　　　　　　　　　　【图1】

　　完整代码请从本文后面下载。假设所有文件均在inetpubScripts目录下，则登录管理功能的URL为：http://localhost/scripts/BannerAdminLogin.asp。所有其他功能均可从此开始访问。

　　接下来我们介绍管理功能脚本中的一些关键问题。

　　㈠　安全

　　大多数执行管理功能的页面受密码保护，这些页面在执行其任务之前都会检查一个SESSION变量以确认用户已经成功地登录。检查代码如下所示：

　' 检查用户是否已经登录
　If SESSION( "LoggedIn" ) <> true Then
　    Response.Redirect( "NotLoggedIn.asp" )
　End If
　　这里所采用的安全机制较为简单，更多的说明参见《在ASP应用中验证用户身份》。

　　㈡　列出所有的广告

　　 BannerAdministration.asp页面启动时会列出数据库中的所有广告记录。这部分功能通过一个简单的查询和一个记录集对象完成，如下所示：

    　'列出数据库中的所有广告
      Set cn = Server.CreateObject( "ADODB.Connection" )
　    cn.Open "BannerBuddy"
　    Set rs = Server.CreateObject( "ADODB.RECORDSET" )
　    Set rs2 = Server.CreateObject( "ADODB.RECORDSET" )
　    strSql = "SELECT * FROM Advertisement"
　    rs.Open strSql, cn
　    strCRLF = Chr( 13 ) + Chr( 10 )
　    While not rs.EOF and not rs.BOF
　       ' 根据广告客户编号(AdvertiserID)查找客户名称
　       strSql = "SELECT Name From Advertiser where AdvertiserID = " + _
　                 CStr( rs.Fields( "AdvertiserID" ) )
　        rs2.Open strSql, cn
　        strAdvertiser = ""
　        If not rs2.EOF and not rs2.BOF Then
　            strAdvertiser = rs2.Fields( "Name" )
　        End If
　        Response.Write( "</tr>" + strCRLF )
　        rs2.Close
　        rs.MoveNext
　    Wend
　　系统假定数据库db.mdb的ODBC DSN为BannerBuddy，因此在运行程序之前必需设置好这个DSN。有关数据库连接和操作的更多说明，参见《ASP应用中数据库记录的选取与过滤》。

　　在广告清单中，单击广告客户名字可以编辑该广告客户的信息，单击“文本/图形”栏中的文本可以编辑该广告的信息，单击图片链接可以查看图片。

　　㈢　新增、修改广告和广告客户

　　 AddAdvertisement.asp和AddAdvertiser.asp这两个脚本的任务是获取提交给它们的表单数据，创建广告客户或广告数据库记录。下面的代码用于新增广告记录，新增广告客户（AddAdvertiser.asp）的代码也类似，此处略。

　' 连接到数据库,创建记录集对象rs,略...
　strStartDate = Request.Form( "StartMonth" ) + "/" + _
　  Request.Form( "StartDay" ) + "/" + _
　  Request.Form( "Startyear" )
　strEndDate = Request.Form( "EndMonth" ) + "/" + _
　    Request.Form( "EndDay" ) + "/" + _
　  Request.Form( "Endyear" )
　
　nStatus = 1
　If UCase( Request.Form( "Status" ) ) = "INACTIVE" Then
　  nStatus = 0
　End If
　
　' 根据所选择的广告客户名字，获取其编号
　nAdvertiserID = 1
　strSql = "select AdvertiserID from Advertiser where Name = '" + _
　  Request.Form( "Advertiser" ) + "'"
　rs.Open strSql, cn
　If not rs.EOF and not rs.BOF Then
　  nAdvertiserID = rs.Fields( "AdvertiserID" )
　  If IsNull( nAdvertiserID ) Then
　    nAdvertiserID = 1
　  End If
　End If
　
　' 生成一个新的广告编号
　nAdvertisementID = 1
　strSql = "select AdID=Max( AdID ) from Advertisement"
　rs.Close
　rs.Open strSql, cn
　If not rs.EOF and not rs.BOF Then
　  nAdvertisementID = rs.Fields( "AdID" ) + 1
　  If IsNull( nAdvertisementID ) Then
　    nAdvertisementID = 1
　  End If
　End If
　
　' 插入新广告记录的SQL命令
　strSql = "insert into Advertisement " + _
　  "( AdvertiserID, Status, ImageURL, " + _
　  "ImageWidth, ImageHeight, Link, " + _
　  "AltText, Weight, StartDate, EndDate, " + _
　  "ViewLimit, ClicksLimit, AdID ) Values ( "
　strSql = strSql + CStr( nAdvertiserID ) + ", "
　' 加上其他字段值,略...
　strSql = strSql + CStr( nAdvertisementID ) + " )"
　
　rs.Close
　rs.Open strSql, cn
　　修改广告、广告客户信息分别由UpdateAdvertiser.asp和UpdateAdvertiser.asp完成，这两个脚本和AddAdvertisement.asp、AddAdvertiser.asp非常相似，只是把增加记录操作改成了修改记录。删除广告、广告客户的脚本很简单（分别为DeleteAdvertisement.asp和DeleteAdvertiser.asp），此处略。

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：一个基于ASP的标题广告管理系统（三）
下一篇：一个基于ASP的标题广告管理系统（一）
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

PHP VS ASP	PHP比ASP优秀的七个理由	用php实现广告轮播
php的header和asp中的redirect比较	php和asp对象的等价关系	发挥语言的威力--融合PHP与ASP
利用PHP实现与ASP Banner组件相似的类	php和asp对象的等价关系	随机广告显示(PHP函数)
用PHP实现小型站点广告管理	PHP的ASP防火墙	一个广告轮播系统的例子（内含文件上传
ASP初学者常犯的几个错误	[ASP]利用 xmlhttp 分块上传文件	asp,php 和 jsp 比较之我见
刷一次变一次图的ASP代码	ASP基础	一段在asp中加密与解密对应的函数
ASP自动解压RAR文件	在ASP与ASP.NET之间共享对话状态(2)	在ASP与ASP.NET之间共享对话状态(1)
利用ASP+JMAIL进行邮件群发的新思路	ASP操作Excel技术总结	用ASP实现对ORACLE数据库的操作