个人中心
gpt4 book ai didi

收藏的ASP常用的函数集

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 30 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章收藏的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  

最后此篇关于收藏的ASP常用的函数集的文章就讲到这里了,如果你想了解更多关于收藏的ASP常用的函数集的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

30 4 0
文章推荐： Access 2000 数据库 80 万记录通用快速分页类
文章推荐： ASP中取得图片宽度和高度的类（无组件）
文章推荐： asp分页的一个类
文章推荐： java HashMap通过value反查key的代码示例
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com