主頁(yè) > 知識(shí)庫(kù) > 收藏的ASP常用的函數(shù)集

收藏的ASP常用的函數(shù)集

熱門(mén)標(biāo)簽:常用地圖標(biāo)注范圍點(diǎn) 寧夏怎么申請(qǐng)400電話 外呼回?fù)芟到y(tǒng)圖片 咸陽(yáng)銷(xiāo)售外呼系統(tǒng) 為什么外呼系統(tǒng)需要預(yù)存話費(fèi)呢 離線電子地圖標(biāo)注軟件注冊(cè) 蘭州智能語(yǔ)音電銷(xiāo)機(jī)器人功能 辦理400電話一年多少錢(qián) 企數(shù)外呼系統(tǒng)能用多久
ASP函數(shù)集 
'========取得帶端口的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)隔開(kāi)
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)簽:昆明 泰州 家電維修 麗江 溫州 昌都 鐵嶺 咸陽(yáng)

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《收藏的ASP常用的函數(shù)集》,本文關(guān)鍵詞  收藏,的,ASP,常用的,常,用的,;如發(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常用的函數(shù)集》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于收藏的ASP常用的函數(shù)集的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章