2 一个基于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 = strSqlCStr( nAdvertiserID )", "
加上其他字段值,略...
　strSql = strSqlCStr( nAdvertisementID )" )"
　
　rs.Close
　rs.Open strSql, cn
修改广告、广告客户信息分别由UpdateAdvertiser.asp和UpdateAdvertiser.asp完成，这两个脚本和AddAdvertisement.asp、AddAdvertiser.asp非常相似，只是把增加记录操作改成了修改记录。删除广告、广告客户的脚本很简单（分别为DeleteAdvertisement.asp和DeleteAdvertiser.asp），此处略。

以上就是一个基于ASP的标题广告管理系统(2)，希望大家喜欢，请继续关注我们。