这方法是群里,christina告诉我的
<%
strtemp = Request.ServerVariables("HTTP_USER_AGENT")
strtemps=Split(strtemp,";")
If InStr(strtemps(1),"MSIE")>0 then
versions=Trim(Left(Replace(strtemps(1),"MSIE",""),6))
end if
versions = left(versions,1)
select case versions
case 5
csstmp = "11.css"
case 6
csstmp = "22.css"
case 7
csstmp = "33.css"
case 8
csstmp = "44.css"
end select
%>
<LINK href=<%=csstmp%> type=text/css rel=stylesheet>