ie.asp

视频点播系统

<%
Dim testBrowser
Set testBrowser = Server.CreateObject("MSWC.BrowserType")
if testBrowser.tables=false or testBrowser.Cookies=false or testBrowser.VBscript=false or testBrowser.Javascript=false then
set testBrowser=nothing
Response.Redirect ("Browser_err.html")
else
response.Write "ok"
end if
set testBrowser=nothing
%>