收藏的ASP常用的函数集

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