28,390
社区成员
发帖
与我相关
我的任务
分享
Dim Agent
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
If InStr(Agent(1),"MSIE")<=0 and Trim(Left(Replace(Agent(1),"MSIE",""),6))<>"6.0" Then
response.write "该页面只能用IE6打开访问"
response.end
end if
大致程序是这样的,你可以测试看下Trim(Left(Replace(Agent(1),"MSIE",""),6))看看这个得出了的版本是不是6.0的