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) * (256 ^ (3 - lnIndex))
        End If
        lnResults = lnResults + lnIpAry(lnIndex)
    Next
    CLngIP = lnResults
End Function
%>

时间： 2024-07-31 11:49:44

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

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常用函数:CStrIP()_ASP基础

作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP)     Dim lsResults     Dim lnTemp     Dim lnIndex     For lnIndex = 3 To 0 Step -1         lnTemp = Int(anNewIP / (256 ^ lnIndex))         lsResults = lsResults & lnTemp & "."         a

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

用法: IIF(条件表达式,为真时返回值,为假时返回值) <% Function IIf(bExp1, sVal1, sVal2)     If (bExp1) Then         IIf = sVal1     Else         IIf = sVal2     End If End Function %>

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) * 

ASP数据库连接方式大全_ASP基础

<%  '#######以下是一个类文件,下面的注解是调用类的方法################################################  '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用  '# Access 数据库类  '# CreateDbFile 建立一个Access 数据库文件  '# CompactDatabase 压缩一个Access 数据库文件  '# 建立对象方法:  '# Set a

javascript asp教程错误处理_ASP基础

The ASPError Object has zero (0) Methods, nine (9) Properties, zero (0) Events, and zero (0) Collections. AspCode AspDescription Category Column Description File Line Number Source The way you access the ASPError Properties is with a Server Method. Y

javascript asp教程 日期相关_ASP基础

JavaScript is loosely typed. Database files are not. If you put text into a Boolean database column or a Boolean value into a date/time column, then you will get an error. For the most part this is not a problem, except for date/time. It does not cor

javascript中数组的多种定义方法和常用函数简介_基础知识

数组的定义:方法1. 复制代码 代码如下: var mycars=new Array()mycars[0]="sharejs.com"mycars[1]="Volvo"mycars[2]="BMW" 方法2.定义和初始化一起: 复制代码 代码如下: var mycars=new Array("Saab","Volvo","BMW"); 或者: 复制代码 代码如下: var mycars=

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

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