ASP常用函數(shù):CStrIP()
更新時(shí)間：2007年02月07日 00:00:00 作者：
作用:把長整型數(shù)字轉(zhuǎn)為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 & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
End Function
%>
<%
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 & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
End Function
%>
相關(guān)文章
詳細(xì)講解ASP腳本循環(huán)語句...2007-03-03
asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼
asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼...2007-08-08
ASP編程入門進(jìn)階（九）：內(nèi)置對象Application
ASP編程入門進(jìn)階（九）：內(nèi)置對象Application...2007-01-01
ASP常用函數(shù):CStrIP()...2007-02-02
對象標(biāo)記具有無效的 ''MSWC.MyInfo'' ProgID
對象標(biāo)記具有無效的 ''MSWC.MyInfo'' ProgID...2007-02-02
一個(gè)ASP中的數(shù)組...2006-12-12
asp?空值測試判斷函數(shù)，學(xué)習(xí)asp的朋友可以參考下。2011-09-09
[紅色]5天學(xué)會(huì)asp...2006-12-12
用ASP實(shí)現(xiàn)遠(yuǎn)程批量文件改名
用ASP實(shí)現(xiàn)遠(yuǎn)程批量文件改名...2006-06-06
顯示在線人數(shù)...2006-07-07