二、管理功能

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

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


　　 　　 　　 　　 　　 　　 【图1】

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

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

　　 ㈠　安全

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

　' 检查用户是否已经登录
　If SE ION( "LoggedI quot; ) < gt; true Then
　 Re o e.Redirect( " otLoggedIn.a quot; )
　End If
　　 这里所采用的安全机制较为简单，更多的说明参见《在A 应用中验证用户身份》。

　　 ㈡　列出所有的广告

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

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

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

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

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

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