ASP常用函數(shù):CStrIP()
更新時(shí)間:2007年02月07日 00:00:00 作者:
作用:把長(zhǎng)整型數(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)文章
在線(xiàn)統(tǒng)計(jì)代碼 application
在線(xiàn)統(tǒng)計(jì)代碼 application...2006-06-06為什么在存儲(chǔ)過(guò)程中用OLEDB方式不能返回記錄集
為什么在存儲(chǔ)過(guò)程中用OLEDB方式不能返回記錄集...2006-06-06利用ASP發(fā)送和接收XML數(shù)據(jù)的處理方法
因?yàn)橐鲆苿?dòng)夢(mèng)網(wǎng)WAP的一些接口,所以要用到這種方式,接下來(lái)會(huì)有ASP.net版本的,這個(gè)是ASP版本的,利用了MSXML2.XMLHTTP對(duì)像2006-06-06rustysun同學(xué)ASP代碼書(shū)寫(xiě)規(guī)范
2008-01-01