ASP常用函数:CLngIP()

作用:把IP地址转为长整型

<%

Function CLngIP(ByVal asNewIP)

    Dim lnResults

    Dim lnIndex

    Dim lnIpAry

    lnIpAry = Split(asNewIP, ".", 4)

    For lnIndex = 0 To 3

        If Not lnIndex = 3 Then

            lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))

        End If

        lnResults = lnResults + lnIpAry(lnIndex)

    Next

    CLngIP = lnResults

End Function

%>

时间： 2024-09-20 20:50:40

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

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

作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP)     Dim lnResults     Dim lnIndex     Dim lnIpAry     lnIpAry = Split(asNewIP, ".", 4)     For lnIndex = 0 To 3         If Not lnIndex = 3 Then             lnIpAry(lnIndex) = lnIpAry(lnIndex) * 

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为底的对数函数值.