========取得帶端口的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
'=================用正則表達式突出顯示字符串中查詢到的單詞的函數====================== 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)'取得帶參數地址 End If If Len(ScriptAddress)>250 Then ScriptAddress = Left(ScirptAddress,250)"..." '進行路徑截取，最大為250個字符 GetScriptName = ScriptAddress End Function
'===========返回帶參數的Url，多關鍵字排序時使用============== ' RemoveList 參數：需要從Url中去除的參數，可以是多個，中間請用逗號隔開 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
