比较常用ASP函数的介绍

发布时间：2023-08-21 14:35:54 所属栏目：Asp教程来源：

导读：ASP函数在asp网页编程实现功能中是必需部分，但是你对ASP函数了解吗？其实我们只要掌握几个常用的ASP函数即可，那么我们现在就去看看常用ASP函数的介绍。

========取得带端口的URL，推荐使用================

ASP函数在asp网页编程实现功能中是必需部分，但是你对ASP函数了解吗？其实我们只要掌握几个常用的ASP函数即可，那么我们现在就去看看常用ASP函数的介绍。

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

上文就是常用ASP函数的介绍，看完后你对ASP函数了解了吗？

'=================用正则表达式突出显示字符串中查询到的单词的函数======================

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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!