收藏的ASP常用的函数集

ASP函数集 '========取得带端口的URL，推荐使用================ FunctionGet_ScriptNameUrl() Ifrequest.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")) EndIf EndFunction'=================用正则表达式突出显示字符串中查询到的单词的函数====================== FunctionBoldWord(strContent,word) Ifword=""Then BoldWord=strContent ExitFunction EndIF dimobjRegExp SetobjRegExp=newRegExp objRegExp.IgnoreCase=true objRegExp.Global=True objRegExp.Pattern="("&word&")" strContent=objRegExp.Replace(strContent,"<fontcolor=""#FF0000""><b>$1</b></font>") SetobjRegExp=Nothing BoldWord=strContent EndFunction'===============取得用户当前IP地址=================== FunctionGetIP() uIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") IfuIP=""ThenuIP=Request.ServerVariables("REMOTE_ADDR") GetIp=uIP EndFunction '===============取得当前程序脚本路径================== FunctionGetScriptName() ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))'取得当前地址 If(Request.QueryString<>"")Then ScriptAddress=ScriptAddress&"?"&Server.HTMLEncode(Request.QueryString)'取得带参数地址 EndIf IfLen(ScriptAddress)>250ThenScriptAddress=Left(ScirptAddress,250)&"..."'进行路径截取，最大为250个字符 GetScriptName=ScriptAddress EndFunction'===========返回带参数的Url，多关键字排序时使用============== 'RemoveList参数：需要从Url中去除的参数，可以是多个，中间请用逗号隔开 FunctionKeepUrlStr(RemoveList) ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址,并加入“?”符号 M_ItemUrl="" ForEachM_itemInRequest.QueryString IfInStr(RemoveList,M_Item)=0Then M_ItemUrl=M_ItemUrl&M_Item&"="&Server.URLEncode(Request.QueryString(""&M_Item&""))&"&" EndIf Next KeepUrlStr=ScriptAddress&M_ItemUrl EndFunction