|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。ip地点/*writtenbyJaron,2000-01-10*/
/*原出处:江都资讯网http://www.jiangdu.net*/
/*转载请说明出处和保存此版权信息*/
/*接待利用SiteManager网站办理体系http://sitemanager.cnzone.net*/
/*相干文章:http://www.csdn.net/Develop/read_article.asp?id=19652*/
<scriptlanguage="JScript"Runat="Server">
functionIPDeCode(EIP){
varIp1,Ip2,Ip3,Ip4;
Ip1=moveByteR(EIP&0xff000000,3);
Ip2=moveByteR(EIP&0x00ff0000,2);
Ip3=moveByteR(EIP&0x0000ff00,1);
Ip4=EIP&0x000000ff;
returnIp1+"."+Ip2+"."+Ip3+"."+Ip4;
}
functionmoveByteL(num,bytenum){
returnnum<<=(bytenum*8)
}
functionmoveByteR(num,bytenum){
returnnum>>>=(bytenum*8)
}
</script>
在vbs中没有位操纵,如许在一个页面顶用到了js和vbs,其实不好,假如用vbs也能够,不外罗嗦了一些,并且有一点注重,假如在vbs中split("202.102.29.6",","),会失掉202,102,29三个数,得不到最初一个6,以是必要将ip换成split("202.102.29.6"&".",",")
我用vbs做的,因为没有位操纵,以是做得对照贫苦
<%
functionip2int(ipstr)
dimiptemp,max
iptemp=split(ipstr&".",".")
max=ubound(iptemp)
ifmax4then
exitfunction
endif
dima,b,i
a="&H"
fori=0to3
b=Hex(iptemp(i))
iflen(b)=1then
b="0"&b
endif
a=a&b
next
ip2int=CLng(a)
endfunction
functionint2ip(ip)
dimiptemp,a,ipstr,i,length
iptemp=Hex(ip)
length=8-len(iptemp)
fori=1tolength
iptemp="0"&iptemp
next
a=left(iptemp,2)
a="&H"&a
i=CInt(a)
a=CStr(i)
ipstr=a&"."
a=mid(iptemp,3,2)
a="&H"&a
i=CInt(a)
a=CStr(i)
ipstr=ipstr&a&"."
a=mid(iptemp,5,2)
a="&H"&a
i=CInt(a)
a=CStr(i)
ipstr=ipstr&a&"."
a=right(iptemp,2)
a="&H"&a
i=CInt(a)
a=CStr(i)
ipstr=ipstr&a
int2ip=ipstr
endfunction
dimtestIP,testInt
testIP="202.102.29.6"
testInt=ip2int(testIP)
response.writetestIP&"willbeencodedto<fontcolor=red>"&testInt&"</font><br>"
response.writetestIP&"willbedencodedto<fontcolor=red>"&int2ip(testInt)&"</font><br>"
%>
</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|