欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

收藏的ASP常用的函数集

时间:2021-05-08 09:05:43|栏目: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

 

'=================用正则表达式突出显示字符串中查询到的单词的函数======================
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 base64 utf-8为了兼容asp.net的base64

栏    目:ASP代码

下一篇:用XMLHTTP很好的一个例子

本文标题:收藏的ASP常用的函数集

本文地址:http://www.codeinn.net/misctech/117034.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有