[ASP]可以统计显示次数并设定显示次数的广告轮显代码

基于AC数据库，本来做来是每次都要更新数据库的显示次数到数据库的。但实践证明，上了140的在线量该位置就要报冲突错误了。后台就改写成如下方式放到application中，每n分钟或其中的1个BANNER显示完毕触发向数据库中更新，实践证明效率大大滴好了转。以前经过实践推敲的好些代码，现在而今眼目下都不用了。慢慢贴出来吧。自己看代码建立相应表。及后台。

Call BannerDisPlay()
Sub BannerDisPlay()
Dim ArrBanner,ArrLen,BannerData,PRVDBSTATE
BannerData = Application("BannerData")
ArrLen = UBound(BannerData)
If ArrLen = 0 Then
Response.Write "该广告位没有数据"
Exit Sub
Else
Dim b
Randomize
b = Int((ArrLen * Rnd))
If BannerData(b,7) = False Then
Response.Write "<a href='BanenrGo.asp?ID="&BannerData(b,0)&"' target='_blank'><img src='"& BannerData(b,2) &"' width='468' height ='60' border='0'></a>"
Else
Response.Write(BannerData(b,6))
End If
If Application("BannerData")(b,5) - BannerData(b,4) > 1 Then
If DBSTATE = False Then
DbOpen()
PRVDBSTATE = True
End If
Dim cs
Conn.Execute("update [AD_Banner] set DisTimes="& BannerData(b,5)+1 &",EndDate=now,HasOver=True where ADID="& BannerData(b,0))
Set cs = Server.CreateObject("ZKXP.Cash")
Set cs.Conn = Conn
Application.Lock()
cs.LoadBannerData
Application.UnLock()
Set cs = nothing
'Response.Write "<b>reload</b><br>"
Else

BannerData(b,5) = BannerData(b,5) + 1
Application.Lock()
'Response.Write "<br>addOneID="& BannerData(b,0) &"<br>"
'Response.Write "存入之前显示AP="&Application("BannerData")(b,5)&"Arr="&BannerData(b,5)&"<br>"
Application("BannerData") = BannerData
'response.Write "存入之后显示AP="& Application("BannerData")(b,5) &"<br>"
Application.UnLock()
End If

If DateDiff("n",Application("BannerDataSaveDate"),now) >= SBDtDif Then'SBDtDif变量定义在UserBin
Application.Lock()
Application("BannerDataSaveDate") = now
Application.UnLock()
Dim i
If DBSTATE = False Then
DbOpen()
PRVDBSTATE = True
End If
for i = 0 to uBound(Application("BannerData")) - 1
Conn.Execute("update [AD_Banner] set DisTimes="&Application("BannerData")(i,5)&" where ADID="&Application("BannerData")(i,0))
next
End If

End If
If PRVDBSTATE = True Then DbClose()
BannerData = null
End Sub