收藏的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

赞 (0)

相关推荐

  • 收藏的ASP常用的函数集

    ASP函数集  '========取得带端口的URL,推荐使用================ Function Get_ScriptNameUrl()  If request.servervariables("SERVER_PORT")="80" Then   Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(

  • ASP.NET编程中经常用到的27个函数集

    ASP.Net是建立在微软新一代.Net平台架构上,利用普通语言运行时(Common Language Runtime)在服务器后端为用户提供建立强大的企业级Web应用服务的编程框架.下面列举了常用的27个ASP.NET中的函数集: 1.DateTime 数字型 复制代码 代码如下: System.DateTime currentTime=new System.DateTime(); 1.1 取当前年月日时分秒 currentTime=System.DateTime.Now; 1.2 取当前年

  • 值得收藏的asp.net基础学习笔记

    值得收藏的asp.net基础学习笔记

    值得收藏的asp.net基础学习笔记,分享给大家. 1.概论 浏览器-服务器 B/S 浏览的 浏览器和服务器之间的交互,形成上网B/S模式 对于HTML传到服务器  交给服务器软件(IIS)  服务器软件直接读取静态页面代码,然后返回浏览器 对于ASPX传达服务器  交给服务器软件(IIS)   IIS发现自己处理不了aspx的文件,就去映射表根据后缀名里找到响应的处理程序(isapi,服务器扩展程序) 问题:IIS如何调用可扩展程序? 答:可扩展程序首先就是按照IIS提供的借口实现代码,所以I

  • ASP常用源代码的总结（下）

    ASP是Active Server Page的缩写,意为"动态服务器页面".ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单.方便的编程工具.接上篇>> 11.ACCESS数据库连接: <% option explicit dim startime,endtime,conn,connstr,db startime=timer() '更改数据库名字 db="data/dvBBS5.mdb" Set co

  • ASP常用源代码的总结（上）

    ASP是Active Server Page的缩写,意为"动态服务器页面".ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单.方便的编程工具.下面介绍的是ASP经常用到的代码总结. 1.获得系统时间: <%=now()%> 2.取得来访用的IP: <%=request.serverVariables("remote_host")%> 3.获得系统,浏览器版本: <script> wi

  • JavaScript中获取时间的函数集

    下面给大家介绍下js获取时间的函数集. $(function(){ var mydate = new Date(); var t=mydate.toLocaleString(); $("#time").text(t); $("#time").load("Untitled-1.html"); }); 获取JavaScript 的时间使用内置的Date函数完成 var mydate = new Date(); mydate.getYear(); //

  • ASP常用的函数

    ASP常用的函数,希望能用的着. <% dim db db="dbms.mdb" '****************************************************************** '执行sql语句,不返回值,sql语句最好是如下: 'update 表名 set 字段名=value,字段名=value where 字段名=value 'delete from 表名 where 字段名=value 'insert into 表名 (字段名,字段名

  • ASP常用函数收藏乱七八糟未整理版

    <% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

  • 解析php常用image图像函数集

    gd_info函数:获取当前安装的GD库的信息 getimagesize函数:获取图像的大小 image_type_to_extension函数:获取图像类型的文件后缀 image_type_to_mime_type函数:判断一个IMAGETYPE常量的MIME类型 image2wbmp函数:以WBMP格式将图像输出到浏览器或文件 imagealphablending函数:设定图像的混色模式 imageantialias函数:是否使用antialias(抗锯齿)功能 imagearc函数:画椭圆

  • [整理版]ASP常用内置函数

    函数,就是该语言封装了的一个功能块,以方便用户的调用.比如"now()"在VBScript中就是一个能显示出当前日期和时间的函数.至于具体为什么能显示,则是该语言内核所定的,用户只需明白"now()"就是用来能显示日期时间的.那么,我们当前接触的VBScript还有其他什么功能的函数么? 1,日期/时间函数这些函数包括对"年"."月"."日"."时"."分".&quo

随机推荐