主頁(yè) > 知識(shí)庫(kù) > asp中獲取當(dāng)前頁(yè)面的地址與參數(shù)的函數(shù)代碼

asp中獲取當(dāng)前頁(yè)面的地址與參數(shù)的函數(shù)代碼

熱門(mén)標(biāo)簽:地圖標(biāo)注陽(yáng)江 武穴地圖標(biāo)注 創(chuàng)意電話機(jī)器人 濟(jì)源電銷(xiāo)外呼系統(tǒng)線路 世界地圖標(biāo)注了哪些城市 java外呼系統(tǒng)是什么 梧州市地圖標(biāo)注 石家莊慧營(yíng)銷(xiāo)外呼系統(tǒng) 外呼線路批發(fā)
復(fù)制代碼 代碼如下:

Function getCurrentUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") > 80 Then
strTemp = strTemp ":" Request.ServerVariables("SERVER_PORT")
end if
strTemp = strTemp Request.ServerVariables("URL")
getCurrentUrl = strTemp
End Function

Function getUrlWithParams()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
If Request.ServerVariables("SERVER_PORT") > 80 Then
Servername = Servername ":" Request.ServerVariables("SERVER_PORT")
end if
if qs>"" then
getUrlWithParams ="http://" Servername ScriptAddress "?"qs
else
getUrlWithParams ="http://" Servername ScriptAddress
end if
End Function

標(biāo)簽:甘南 唐山 迪慶 南寧 來(lái)賓 淮北 揭陽(yáng) 滁州

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp中獲取當(dāng)前頁(yè)面的地址與參數(shù)的函數(shù)代碼》,本文關(guān)鍵詞  asp,中,獲取,當(dāng)前,頁(yè),面的,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp中獲取當(dāng)前頁(yè)面的地址與參數(shù)的函數(shù)代碼》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于asp中獲取當(dāng)前頁(yè)面的地址與參數(shù)的函數(shù)代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章