asp獲取url地址的實(shí)例

字號(hào):


    在asp中,我們很多時(shí)候獲取url都是利用javascript來實(shí)現(xiàn)的,這個(gè)很簡(jiǎn)單,用window.location.href就可以獲得了url的全部路徑,包括后面的參數(shù),然后再用split函數(shù)來分離就好了
    但在asp中,我們很多時(shí)候只想:
    response.writescript_name獲取的值: &request.servervariables(script_name)&
    '=========================
    '獲取當(dāng)前url參數(shù)的函數(shù)
    private function geturl()
    dim scriptaddress,m_itemurl, m_item
    scriptaddress = cstr(request.servervariables(script_name)) '取得當(dāng)前地址
    m_itemurl =
    response.write(request.querystring&
    )
    if (request.querystring <> ) then
    scriptaddress = scriptaddress & ?
    for each m_item in request.querystring
    '如果頁面?zhèn)鬟f參數(shù)是用page變量,那么判斷一下page是否已經(jīng)使用,避免重復(fù)!
    if instr(page,m_item)=0 then
    m_itemurl = m_itemurl & m_item &=& server.urlencode(request.querystring(&m_item&)) & &
    end if
    next
    end if
    geturl = scriptaddress & m_itemurl
    if instr(1,geturl,?,1)<1 then
    geturl=geturl&?
    end if
    end function
    '=============================
    response.write geturl