收藏的ASP常用的函数集

时间:2021-05-18

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




声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章