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