佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > 收藏的ASP常用的函數(shù)集

收藏的ASP常用的函數(shù)集
熱門標簽：團購網(wǎng)站 科大訊飛語音識別系統(tǒng) 服務(wù)器配置 Mysql連接數(shù)設(shè)置 電子圍欄 銀行業(yè)務(wù) Linux服務(wù)器 阿里云
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

 

'=================用正則表達式突出顯示字符串中查詢到的單詞的函數(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

 

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

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

 


'===========返回帶參數(shù)的Url，多關(guān)鍵字排序時使用==============
' RemoveList 參數(shù)：需要從Url中去除的參數(shù)，可以是多個，中間請用逗號隔開
Function KeepUrlStr(RemoveList)
 ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))"?"'取得當前地址,并加入“?”符號
 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 

 


標簽：衡水 蚌埠 萍鄉(xiāng) 江蘇 衢州 廣元 棗莊 大理

巨人網(wǎng)絡(luò)通訊聲明：本文標題《收藏的ASP常用的函數(shù)集》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    长泰县| 永平县| 泉州市| 武山县| 松滋市| 新邵县| 娄烦县| 芦山县| 禄劝| 宜春市| 冀州市| 北海市| 太仆寺旗| 治县。| 巴楚县| 涞源县| 扎赉特旗| 新邵县| 永昌县| 苗栗县| 滨海县| 绩溪县| 河曲县| 久治县| 大渡口区| 资阳市| 大悟县| 长海县| 若尔盖县| 崇仁县| 土默特右旗| 阜新市| 桃园市| 南漳县| 阿拉善盟| 成武县| 固原市| 栖霞市| 高青县| 内乡县| 宜章县|