|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧客户端|扫瞄器良多人都在问这个成绩阿,上面就是谜底了:)
-----------------------------------------
起首她要用到asp的ServerVarialbles这个汇合。在ServerVarialbles有如许一项HTTP_USER_AGENT,他有甚么感化呢?他的感化就是猎取客户端扫瞄器的基础信息和操纵体系的版本阿,如是甚么牌子的扫瞄器阿(一样平常就是IE和netscape了),他们的版本号甚么的,上面我用一个程序来讲明她的用法,文件定名为CheckBrowse.asp。
$U2Forumrautinee原创$
$http://u2bbs.126.com$
++++++++++++++以下是程序的注释+++++++++++++++++
<HTML>
<HEAD>
<TITLE>扫瞄器检测</TITLE>
</HEAD>
<BODY>
<%
DimBrowseMsg,BrowseVersion,SystemVersion
BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")
+++++++++++一个基础辨别操纵体系的函数+++++++++++
FunctionSystemCheck()
ifinStr(BrowseMsg,"Windows98")then
SystemCheck="Windows98"
elseifinStr(BrowseMsg,"WindowsNT4.0")then
SystemCheck="WindowsNT4.0"
elseifinStr(BrowseMsg,"WindowsNT5.0")then
SystemCheck="WindowsNT2000"
else
SystemCheck="未知范例"
endif
endif
endif
endFunction
因为工夫的缘故原由我没有写判断win95和windowsxp的语句,感乐趣的网友能够
自行增加:)
+++++++++++停止+++++++++++
ifinStr(BrowseMsg,"MSIE")then
SystemVersion=CInt(Mid(BrowseMsg,inStr(BrowseMsg,"MSIE")+5,1))
response.write"您的扫瞄器的版本是IE"&BrowseVersion&"<BR>"
response.write"您的操纵体系是"&SystemCheck()
endif
%>
</BODY>
</HTML>
----------------------------------------
ok,enjoyitandgoodluck!
</p>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|