ASP基礎教程之ASP AdRotator 組件的使用_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：ASP六大對象介紹
      Application對象

Application對象是個應用程序級的對象，用來在所有用戶間共享信息，并可以在Web應用程序運行期間持久地保持數據。

Application的屬性：

方法如下：

Application對象沒
      ASP AdRotator 組件
      


      每當用戶進入網站或刷新頁面時，ASP AdRotator組件就會創建一個AdRotator對象來顯示一幅不同的圖片。
      


      語法：
      


      


      

    

        
      

            以下為引用的內容：
      <%
      set adrotator=server.createobject("MSWC.AdRotator")
      adrotator.GetAdvertisement("textfile.txt")
      %>      		

        
      

          


      


      


      實例
      


      假設我們有一個文件名為"banners.asp"。它類似于這樣：
      


      


      

    

        
      

            以下為引用的內容：
      <html%>
      <body%>
      <%
      set adrotator=Server.CreateObject("MSWC.AdRotator")
      response.write(adrotator.GetAdvertisement("ads.txt"))
      %>
      </body%>
      </html%>      		

        
      

          


      


      


      文件"ads.txt"類似這樣：
      


      


      

    

        
      

            以下為引用的內容：
      *
      mb5ucom.gif
      http://www.wf0088.com/
      Visit mb5u.Com
      80
      microsoft.gif
      http://www.microsoft.com/
      Visit Microsoft
      20        		

        
      

          


      


      


      "ads.txt"文件中星號下面的代碼定義了如何顯示這些圖像，鏈接地址，圖像的替換文本，在每百次點擊中的現實幾率。我們可以看到，W3School圖片的顯示幾率是80%，而Microsoft圖片的顯示幾率是20%。
      


      注釋：為了使這些鏈接在用戶點擊時可以正常工作，我們需要對文件"ads.txt"進行一點點小小的修改：
      


      


      

    

        
      

            以下為引用的內容：
      REDIRECT banners.asp
      *
      mb5ucom.gif
      http://www.wf0088.com/
      Visit mb5u.Com
      80
      microsoft.gif
      http://www.microsoft.com/
      Visit Microsoft
      20      		

        
      

          


      


      


      轉向頁面會接收到名為url的變量的查詢字符串，其中含有供轉向的URL。
      


      注釋：如需規定圖像的高度、寬度和邊框，我們可以在REDIRECT下面插入這些代碼：
      


      


      

    

        
      

            以下為引用的內容：
      REDIRECT banners.asp
      WIDTH 468 
      HEIGHT 60 
      BORDER 0 
      *
      mb5ucom.gif
      ...
      ...      		

        
      

          


      


      


      最后要做的是把這些代碼加入文件"banners.asp"中：
      


      


      

    

        
      

            以下為引用的內容：
      

            
      <%
      url=Request.QueryString("url")
      If url<>"" then Response.Redirect(url)
      %>
      <html>
      <body>
      <%
      set adrotator=Server.CreateObject("MSWC.AdRotator")
      response.write(adrotator.GetAdvertisement("textfile.txt"))
      %>
      </body>
      </html>
      

                  		

        
      

          


      


      分享：用ASP代碼得到客戶端IP和當前地址
      1、得到客戶端IP

<%myip=Request.ServerVariables("Remote_Addr")%>

2、得到當前地址





    

        

            以下為引用的內容：
<script>
document
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關ASP教程：