global.asax

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data" %>

<Script Runat="Server">

Dim dtblBannerAds As DataTable

Overrides Sub Init()
  Dim dstBannerAds As DataSet

  dstBannerAds = New DataSet
  dstBannerAds.ReadXml( Server.MapPath( "adFile.xml" ) )
  dtblBannerAds = dstBannerAds.Tables( 0 )
End Sub

Sub Application_PreSendRequestContent
  Dim strPageFooter As String
  Dim objRan As Random
  Dim drowSelectedAd As DataRow

  objRan = New Random()
  drowSelectedAd = dtblBannerAds.Rows( _
    objRan.Next( dtblBannerAds.Rows.Count ) )
  strPageFooter = "<hr><a href=" & drowSelectedAd( "NavigateUrl" )
  strPageFooter &= "><img src=" & drowSelectedAd( "ImageUrl" )
  strPageFooter &= "></a>"
  Response.Write( strPageFooter )
End Sub
</Script>