|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;告白 2、办理功效
办理部分共有12个asp文件,这些剧本的次要功效分离以下:
BannerAdminLogin.asp:办理功效的登录页面。默许的用户称号是“ADMINUSER”,暗码是“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变量以确认用户已乐成地登录。反省代码以下所示:
反省用户是不是已登录
IfSESSION("LoggedIn")trueThen
Response.Redirect("NotLoggedIn.asp")
EndIf
这里所接纳的平安机制较为复杂,更多的申明拜见《在ASP使用中考证用户身份》。
㈡ 列出一切的告白
BannerAdministration.asp页面启动时会列出数据库中的一切告白纪录。这部分功效经由过程一个复杂的查询和一个纪录集工具完成,以下所示:
列出数据库中的一切告白
Setcn=Server.CreateObject("ADODB.Connection")
cn.Open"BannerBuddy"
Setrs=Server.CreateObject("ADODB.RECORDSET")
Setrs2=Server.CreateObject("ADODB.RECORDSET")
strSql="SELECT*FROMAdvertisement"
rs.OpenstrSql,cn
strCRLF=Chr(13)+Chr(10)
Whilenotrs.EOFandnotrs.BOF
依据告白客户编号(AdvertiserID)查找客户称号
strSql="SELECTNameFromAdvertiserwhereAdvertiserID="+_
CStr(rs.Fields("AdvertiserID"))
rs2.OpenstrSql,cn
strAdvertiser=""
Ifnotrs2.EOFandnotrs2.BOFThen
strAdvertiser=rs2.Fields("Name")
EndIf
Response.Write("</tr>"+strCRLF)
rs2.Close
rs.MoveNext
Wend
体系假定命据库db.mdb的ODBCDSN为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
IfUCase(Request.Form("Status"))="INACTIVE"Then
nStatus=0
EndIf
依据所选择的告白客户名字,猎取其编号
nAdvertiserID=1
strSql="selectAdvertiserIDfromAdvertiserwhereName="+_
Request.Form("Advertiser")+""
rs.OpenstrSql,cn
Ifnotrs.EOFandnotrs.BOFThen
nAdvertiserID=rs.Fields("AdvertiserID")
IfIsNull(nAdvertiserID)Then
nAdvertiserID=1
EndIf
EndIf
天生一个新的告白编号
nAdvertisementID=1
strSql="selectAdID=Max(AdID)fromAdvertisement"
rs.Close
rs.OpenstrSql,cn
Ifnotrs.EOFandnotrs.BOFThen
nAdvertisementID=rs.Fields("AdID")+1
IfIsNull(nAdvertisementID)Then
nAdvertisementID=1
EndIf
EndIf
拔出新告白纪录的SQL命令
strSql="insertintoAdvertisement"+_
"(AdvertiserID,Status,ImageURL,"+_
"ImageWidth,ImageHeight,Link,"+_
"AltText,Weight,StartDate,EndDate,"+_
"ViewLimit,ClicksLimit,AdID)Values("
strSql=strSql+CStr(nAdvertiserID)+","
加上其他字段值,略...
strSql=strSql+CStr(nAd</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|