作家
登录

收藏的ASP常用的函数集

作者: 来源:www.28hudong.com 2013-03-30 08:43:55 阅读 我要评论

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实现事务处理的方法

利用ASP实现事务处理的方法 选择自 AppleBBS 的 Blog 关键字 利用ASP实现事务处理的方法 出处 在开发Web应用时,无一例外地需要访问数据库,以完成对数据的查询、插入、更新、删除等操作。受应用逻>>>详细阅读


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

地址:http://www.17bianji.com/kaifa2/ASP/32655.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)