========取得带端口的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