作用:把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 %>

　　推荐阅读

　　ASP常用函数:ArrayToxml

<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocu>>>详细阅读

本文标题：ASP常用函数:CLngIP()

地址：http://www.17bianji.com/kaifa2/ASP/32748.html

 1/2    1