ASP常用函数:Delay()

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样:

<%

Function Delay(s)

    Dim t = Now()

    While DateDiff("s", t, Now) < s

    Wend

End Function

%>

转载自:http://jorkin.reallydo.com/article.asp?id=224

时间: 2024-10-24 12:03:16

ASP常用函数:Delay()的相关文章

ASP常用函数:Delay()_ASP基础

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s)     Dim t = Now()     While DateDiff("s", t, Now) < s     Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224

ASP常用函数收藏

函数 ************************************'取得IP地址'************************************Function Userip()Dim GetClientIP'如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

ASP常用函数:getIMG()

 目前还是有BUG的,最新的测试页面在: http://www.reallydo.com/getimg.asp 正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380  发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG: 图片路径有多个空格时只能保留一个.未修正. 2.18修正 图片路径有多个空格时只能保留一个的BUG.已修正. <% '功能:获取全部图片地址

ASP常用函数收藏乱七八糟未整理版_ASP基础

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

asp 常用函数用法_应用技巧

Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

asp 常用函数用法

Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

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

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

ASP常用函数收集

函数 1.检查是否有效邮件地址FunctionCheckEmail(strEmail) Dimre Setre=NewRegExp re.Pattern="^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$" re.IgnoreCase=True CheckEmail=re.Test(strEmail)EndFunction2.测试变量是否为空值,空值的含义包括:变量不存在/为空,对象为Nothing,0,空数组,字符串为空Function

ASP常用函数

1  数学函数 1.1 取整函数 int(x)       取不大于x的最大整数. fix(x)       舍去x的小数部分. 1.2 绝对值函数 abs(x)       求x的绝对值. 1.3 符号函数 sgn(x)       求x的符号代码,x为负数时函数值为-1 . 1.4 平方根函数 sqr(x)       求x的算术平方根,x必须大于0 . 1.5 指数函数 exp(x)       求以e为底x为指数的值. 1.6 对数函数 log(x)       求以e为底的对数函数值.