几个常用的ASP函数

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了几个常用的ASP函数，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2081字，纯文字阅读大概需要3分钟。

内容图文

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

内容总结

以上是互联网集市为您收集整理的几个常用的ASP函数全部内容，希望文章能够帮你解决几个常用的ASP函数所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---