高手们帮帮忙

Z_Nessus 2002-11-24 05:24:16
怎么样才能用一个函数来判断客户端有没有安装java虚拟机?如果有返回值1,没有返回0
...全文
15 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
方工 2002-11-25
  • 打赏
  • 举报
回复
alert(navigator.javaEnabled());
meizz 2002-11-24
  • 打赏
  • 举报
回复
<%
Dim objBC
Set objBC=Server.CreateObject("MSWC.BrowserType")
%><html><head><style>td{font-size: 12px}
.red {color: D00000}</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取得虚拟目录对应的真正磁盘目录</title></head>

<body bgcolor=#CCFFDD>
<center><span style="width: 750;font-size:28px;color:#f0f000;font-family:华文新魏;
position:relative;filter:glow(color=#0060b0, strength=5)">
提取与 ASP 相关的服务器或客户端的一些信息</span></center>
<table border=1 cellSpacing=1 cellPadding=2 align=center width=710
bordercolorlight="#CCFFCC" bordercolordark="#600000" bgcolor=#ffffff>
<tr><td colspan=5 class=12 align=right bgcolor=#CCFFDD>
<a href="http://www.meizz.com" target=_blank>梅花雨</a>  Ver 1.0    </td></tr>
<tr><td class=blue width=140>目前网页虚拟路径:</td>
<td class=red width=177>  <%= Request.ServerVariables("path_info") %></td>
<td width=10 rowspan=8 bgcolor=#CCFFDD></td>
<td class=blue width=130>本网页的实际路径:</td>
<td class=red width=243>  <%= Request.ServerVariables("path_Translated") %></td></tr>
<tr><td class=blue>服务器端的IP地址:</td>
<td class=red>  <%= Request.ServerVariables("local_addr") %></td>
<td class=blue>服务器软件的版本:</td>
<td class=red>  <%= Request.ServerVariables("server_software") %></td>
<tr><td class=blue>服务器连接口编号:</td>
<td class=red>  <%= Request.ServerVariables("server_port") %></td>
<td class=blue>服务器的HTTP版本:</td>
<td class=red>  <%= Request.ServerVariables("server_Protocol") %></td></tr>
<tr><td class=blue>远程主机的名称:</td>
<td class=red>  <%= Request.ServerVariables("remote_host") %></td>
<td class=blue>远程主机的IP地址:</td>
<td class=red>  <%= Request.ServerVariables("remote_addr") %></td></tr>
<tr><td class=blue>服务器的名称或IP:</td>
<td class=red>  <%= Request.ServerVariables("server_name") %></td>
<td class=blue>描述内容的语系:</td>
<td class=red>  <%= Request.ServerVariables("http_accept_language") %></td></tr>
<tr><td class=blue>站点主目录的位置:</td>
<td class=red>  <%= Server.MapPath("/") %></td>
<td class=blue>本网页所在位置:</td>
<td class=red>  <%= Server.MapPath("./") %></td></tr>
<tr><td class=blue>本网页上一级目录:</td>
<td class=red>  <%= Server.MapPath("../") %></td>
<td class=blue>服务器端CGI版本:</td>
<td class=red>  <%= Request.ServerVariables("gateway_interface") %></td></tr>
<tr><td class=blue>子与母端联机类型:</td>
<td class=red>  <%= Request.ServerVariables("http_connection") %></td>
<td class=blue>浏览器端主机名:</td>
<td class=red>  <%= Request.ServerVariables("http_host") %></td></tr>
<tr><td class=blue>浏览器端相关信息:</td>
<td class=red colspan=4>  <%= Request.ServerVariables("http_user_agent") %></td></tr>
<tr><td class=blue>用户浏览器的名称:</td>
<td class=red>  <% = objBC.Browser %></td>
<td width=10 rowspan=5 bgcolor=#CCFFDD></td>
<td class=blue>用户浏览器的版本:</td>
<td class=red>  <% = objBC.Version %></td></tr>
<tr><td class=blue>是否BETA测试软件:</td>
<td class=red>  <% = objBC.Beta %></td>
<td class=blue>ActiveXControls:</td>
<td class=red>  <% = objBC.ActiveXControls %></td></tr>
<tr><td class=blue>是否支持背景声音:</td>
<td class=red>  <% = objBC.BackgroundSounds %></td>
<td class=blue>是否支持 Cookies:</td>
<td class=red>  <% = objBC.Cookies %></td></tr>
<tr><td class=blue>是否支持框架网页:</td>
<td class=red>  <% = objBC.Frames %></td>
<td class=blue>是否支持表格网页:</td>
<td class=red>  <% = objBC.Tables %></td></tr>
<tr><td class=blue>支持 JavaScript:</td>
<td class=red>  <% = objBC.JavaScript %></td>
<td class=blue>是否支持VBScript:</td>
<td class=red>  <% = objBC.VBScript %></td></tr>
</table>
<% Set objBC=Nothing %>
</body>
</html>

87,927

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧