收藏的ASP常用的函数集

时间:2022-06-01 17:59:39

ASP函数集

  1. '========取得带端口的URL,推荐使用================  
  2. Function Get_ScriptNameUrl()  
  3.  If request.servervariables("SERVER_PORT")="80" Then  
  4.   Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))  
  5.  Else  
  6.   Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name"))  
  7.  End If  
  8. End Function  
  9.  
  10.    
  11.  
  12. '=================用正则表达式突出显示字符串中查询到的单词的函数======================  
  13. Function BoldWord(strContent,word)  
  14.  If word="" Then  
  15.   BoldWord = strContent  
  16.   Exit Function  
  17.  End IF  
  18.  dim objRegExp  
  19.  Set objRegExp=new RegExp  
  20.  objRegExp.IgnoreCase =true  
  21.  objRegExp.Global=True  
  22.  
  23.  objRegExp.Pattern="(" & word & ")"  
  24.  strContent=objRegExp.Replace(strContent,"<font color=""#FF0000""><b>$1</b></font>" )  
  25.  
  26.  Set objRegExp=Nothing  
  27.  BoldWord=strContent  
  28. End Function  
  29.  
  30.    
  31.  
  32. '===============取得用户当前IP地址===================  
  33. Function GetIP()  
  34.  uIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
  35.  If uIP = "" Then uIP = Request.ServerVariables("REMOTE_ADDR")  
  36.  GetIp = uIP  
  37. End Function  
  38.  
  39. '===============取得当前程序脚本路径==================  
  40. Function GetScriptName()  
  41.  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))'取得当前地址  
  42.  If (Request.QueryString <> "") Then  
  43.    ScriptAddress = ScriptAddress & "?" & Server.HTMLEncode(Request.QueryString)'取得带参数地址  
  44.  End If  
  45.  If Len(ScriptAddress)>250 Then ScriptAddress = Left(ScirptAddress,250)&"..." '进行路径截取,最大为250个字符  
  46.  GetScriptName = ScriptAddress  
  47. End Function  
  48.  
  49.    
  50.  
  51.  
  52. '===========返回带参数的Url,多关键字排序时使用==============  
  53. ' RemoveList 参数:需要从Url中去除的参数,可以是多个,中间请用逗号隔开  
  54. Function KeepUrlStr(RemoveList)  
  55.  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址,并加入“?”符号  
  56.  M_ItemUrl = ""  
  57.  For Each M_item In Request.QueryString  
  58.   If InStr(RemoveList,M_Item)=0 Then  
  59.    M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"  
  60.   End If  
  61.  Next  
  62.  KeepUrlStr = ScriptAddress & M_ItemUrl  
  63. End Function