ASP函数集

原创 2004年09月22日 21:38:00
========取得带端口的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 函数集 类型转换大全abs(number)返回绝对值。array(arglist)创建一个数组。asc(string)返回字符串第一个字符的ansi码。atn(number)返回反正弦值。c...
  • txl816
  • txl816
  • 2008年10月20日 13:48
  • 886

第三章:3.1 正交函数集合

我们现在开始讲解信号频谱分析的理论基础,也就是正交函数集合完备正交函数集合要想搞清楚这个概念,我们先从正交讲起,之后我们定义正交函数。再然后我们定义正交集合。最后我们引入正交完备函数集合正交我们先来复...
  • Einstellung
  • Einstellung
  • 2017年08月22日 11:38
  • 473

WinSock编程基础

在上一篇中,我们具体介绍了socket的相关概念,本节将概述套接字规范及操作的一些基础性知识。   一.套接字的一些基础知识 1.Windows通信相关驱动 netio.sys(Network...
  • liujiayu2
  • liujiayu2
  • 2015年06月16日 13:37
  • 685

opnet 基本核心函数 ---4 包函数集 2

3)目的 该核心函数提供了对包中字段赋值的机制。该函数只能对格式化包的字段赋值,否则将出错。对于格式化包,只需指定字段的值,而字段的类型和大小可从包格式中自动获取。 4)错误 Program A...
  • happylife1527
  • happylife1527
  • 2012年08月15日 15:58
  • 711

常用函函数集

abs(x)    绝对值arctan(x) 反正切cos(x)    传回馀弦函数值exp(x)    e的x次幂frac(x)   取小数部分int(x)    取整ln(x)     自然对数s...
  • ycwyyy
  • ycwyyy
  • 2007年01月14日 12:33
  • 825

opnet 基本核心函数 ---3 中断函数集

2.9中断函数集 Intrpt(Interrupt)函数集是提供具有输入中断信息的进程并可预设输出中断的核心函数的集合。   1. op_intrpt_schedule_self (time, ...
  • happylife1527
  • happylife1527
  • 2012年08月15日 15:54
  • 1338

Halcon函数总结(二)

Halcon函数总结: auto_threshold(Image : Regions : Sigma : ) //自动阈值,halcon根据图像的直方图来判定阈值 例程代码参考:auto...
  • xlh145
  • xlh145
  • 2013年04月18日 15:57
  • 810

数据库操作的函数集

1 #region 关于数据库操作的函数集,与业务无关  2   3             ///   4             /// 查询数据库记录,返回存放记录的DataTable  5  ...
  • shmily305
  • shmily305
  • 2008年11月04日 14:42
  • 246

Asp.Net函数集

 1、DateTime 数字型 System.DateTime currentTime=new System.DateTime(); 1.1 取当前年月日时分秒 currentTime=System....
  • mq0211
  • mq0211
  • 2007年04月14日 13:33
  • 566

API函数集

1.控件与消息函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindow...
  • wbryfl
  • wbryfl
  • 2010年03月03日 22:20
  • 426
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP函数集
举报原因:
原因补充:

(最多只允许输入30个字)