 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
二、治理功能 治理部分共有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，删除相应的数据库记录。 完整代码请从本文后面下载。假设所有文件均在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写入响应流的最高效率测试结果 下一教程: JMAIL4.1用POP3收信的例子 您可以阅读与"一个基于ASP的标题广告治理系统(二)"相关的教程: · 一个基于ASP的标题广告治理系统(一) · 一个基于ASP的标题广告治理系统(三) · 一个基于ASP的标题广告治理系统（一） · 一个基于WEB的QQ程序 2(XML+ASP) · 一个基于web的QQ程序 2（xml+asp） |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
