<ins id="zq9qd"><strong id="zq9qd"></strong></ins><span id="zq9qd"><dd id="zq9qd"></dd></span>

  1. <thead id="zq9qd"><dd id="zq9qd"></dd></thead>
    1. <ins id="zq9qd"></ins>
      余志國網站設計工作室是專業從事義烏網站建設、義烏外貿網站建設、義烏網站制作、義烏網站設計的專業義烏網站建設工作室,是義烏外貿網站建設專家!

      ASP如何獲取當前網站地址,網頁地址代碼及div+css菜單應用

      分類:程序開發 Tags: asp 獲取當前網址 評論:1 瀏覽:7974 最近更新時間:2008/5/30 23:15:03

      1,如下簡單的這句語句即能實現讀取當前網站地址
       
      1. <%=Request.ServerVariables("HTTP_HOST")  %>
      如果要替換掉網址中的某個字段,比如想把網址中的www去除就可以按照如下形式實現
       
      1. <%=replace(Request.ServerVariables("HTTP_HOST"),"www.","")  %>
      例子:當前網頁地址是http://www.d2ksoft.com/blog/ ,程序就會輸出http://www.d2ksoft.com 的結果,簡單吧!

      2,如下簡單的這句語句即能實現讀取當前網頁地址
       
      1. <%=Request.ServerVariables("SCRIPT_NAME")  %>
      例子:當前網頁地址是http://www.d2ksoft.com/blog/ ,程序就會輸出/blog/  的結果,簡單吧!
      是不是覺得多了一個“/”斜桿,可以通過替換掉;如下代碼:
       
      1. <%=replace(Request.ServerVariables("SCRIPT_NAME"),"/.","")  %>
      3,獲取帶參數的網頁地址
       
      1. '===========================================
      2. '獲取當前Url參數的函數
      3. Function GetUrl()
      4.   Dim ScriptAddress,Servername,qs
      5.   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
      6.   Servername = CStr(Request.ServerVariables("Server_Name"))
      7.   qs=Request.QueryString
      8.   if qs<>"" then
      9.   GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
      10.   else
      11.   GetUrl ="http://"& Servername & ScriptAddress
      12.   end if
      13. End Function
      14. '============================================
      4,功能擴展
      這個代碼我一開始主要是為我的一個飾品網站DIV+CSS導航而用起來的,打開http://www.yiwu-jewelry.cn即可看到如下導航:
      DIV+CSS導航代碼
      開始的時候,當鼠標懸在“最新飾品“鏈接上,背景色會變成紅色,點擊之后背景色又回到了本身的黃色,都是我又想當點擊之后保持紅色,該怎么辦呢?
      當然也有幾種實現方法,我現在考慮的是用程序判斷的方式,最新飾品的網頁地址是http://www.yiwu-jewelry.cn/jewelry_products_newjewelry.asp,當瀏覽器當前地址是/jewelry_products_newjewelry.asp時,你們程序就輸出一段CSS樣式定義代碼,主要程序代碼如下:

      '(CSS代碼部分省略)
      <%
      urlname=Request.ServerVariables("SCRIPT_NAME")
      %>
      <div id="menu">
      <ul>
      <li><a href="/index.asp" <%if urlname="/index.asp" then%>class="thisclass"<%end if%>>首頁</a></li>
      <li><a href="/jewelry_products_newjewelry.asp" <%if urlname="/jewelry_products_newjewelry.asp" then%>class="thisclass"<%end if%>>最新飾品</a></li>
      <li><a href="/jewelry_products_goodjewelry.asp" <%if urlname="/jewelry_products_goodjewelry.asp" then%>class="thisclass"<%end if%>>推薦商品</a></li>
      <li><a href="/jewelry_class.asp" <%if urlname="/jewelry_class.asp" then%>class="thisclass"<%end if%>>商品分類</a></li>
      <li><a href="/jewelry_news.asp" <%if urlname="/jewelry_news.asp" then%>class="thisclass"<%end if%>>飾品資訊</a></li>
      <li><a href="/about/huikuanfangshi.asp" <%if urlname="/about/huikuanfangshi.asp" then%>class="thisclass"<%end if%>>付款方式</a></li>
      <li><a href="/about/yunshushuoming.asp" <%if urlname="/about/yunshushuoming.asp" then%>class="thisclass"<%end if%>>貨物運輸</a></li>
      <li><a href="/guestbook.asp" <%if urlname="/guestbook.asp" then%>class="thisclass"<%end if%>>留言咨詢</a></li>
      <li><a href="/about/contact_us.asp" <%if urlname="/about/contact_us.asp" then%>class="thisclass"<%end if%>>聯系我們</a></li>
      </ul>
      </div>

      本文地址:/347/
      • 相關文章
      • 推薦文章
      • 最新文章

      留言

       


      免費咨詢
      建站咨詢熱線
      15967985565

      掃一掃微信咨詢
      QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email
      成在人av抽搐高潮喷水流白浆,波多野结衣av一区二区三区中文,无码一区二区三区av免费,国产精品久久久尹人香蕉