主頁(yè) > 知識(shí)庫(kù) > 幾個(gè)常用的ASP函數(shù)

幾個(gè)常用的ASP函數(shù)

熱門標(biāo)簽:電話機(jī)器人銷售公司嗎 土地證宗地圖標(biāo)注符號(hào) 保定電銷機(jī)器人軟件 成都銷售外呼系統(tǒng)公司 自動(dòng)外呼系統(tǒng)怎么防止封卡 vue 地圖標(biāo)注拖拽 電話機(jī)器人案例 鎮(zhèn)江云外呼系統(tǒng)怎么樣 客服外呼系統(tǒng)呼叫中心
========取得帶端口的URL,推薦使用================ 
Function Get_ScriptNameUrl() 
If request.servervariables("SERVER_PORT")="80" Then 
Get_ScriptNameUrl="http://"  request.servervariables("server_name")lcase(request.servervariables("script_name")) 
Else 
Get_ScriptNameUrl="http://"  request.servervariables("server_name")":"request.servervariables("SERVER_PORT")lcase(request.servervariables("script_name")) 
End If 
End Function 



'=================用正則表達(dá)式突出顯示字符串中查詢到的單詞的函數(shù)====================== 
Function BoldWord(strContent,word) 
If word="" Then 
BoldWord = strContent 
Exit Function 
End IF 
dim objRegExp 
Set objRegExp=new RegExp 
objRegExp.IgnoreCase =true 
objRegExp.Global=True 

objRegExp.Pattern="("  word  ")" 
strContent=objRegExp.Replace(strContent,"font color=""#FF0000"">b>$1/b>/font>" ) 

Set objRegExp=Nothing 
BoldWord=strContent 
End Function 



'===============取得用戶當(dāng)前IP地址=================== 
Function GetIP() 
uIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If uIP = "" Then uIP = Request.ServerVariables("REMOTE_ADDR") 
GetIp = uIP 
End Function 

'===============取得當(dāng)前程序腳本路徑================== 
Function GetScriptName() 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))'取得當(dāng)前地址 
If (Request.QueryString > "") Then 
ScriptAddress = ScriptAddress  "?"  Server.HTMLEncode(Request.QueryString)'取得帶參數(shù)地址 
End If 
If Len(ScriptAddress)>250 Then ScriptAddress = Left(ScirptAddress,250)"..." '進(jìn)行路徑截取,最大為250個(gè)字符 
GetScriptName = ScriptAddress 
End Function 




'===========返回帶參數(shù)的Url,多關(guān)鍵字排序時(shí)使用============== 
' RemoveList 參數(shù):需要從Url中去除的參數(shù),可以是多個(gè),中間請(qǐng)用逗號(hào)隔開 
Function KeepUrlStr(RemoveList) 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))"?"'取得當(dāng)前地址,并加入“?”符號(hào) 
M_ItemUrl = "" 
For Each M_item In Request.QueryString 
If InStr(RemoveList,M_Item)=0 Then 
M_ItemUrl = M_ItemUrl  M_Item "=" Server.URLEncode(Request.QueryString(""M_Item""))  "" 
End If 
Next 
KeepUrlStr = ScriptAddress  M_ItemUrl 
End Function 

標(biāo)簽:成都 天津 內(nèi)江 麗江 懷化 重慶 公主嶺 臺(tái)灣

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