📄 admin_severchk.asp
字号:
}catch(e){
return "服务器不支持此项检测";
}
}
</SCRIPT>
<SCRIPT language="VBScript" runat="server">
Function getEngVerVBS()
getEngVerVBS=ScriptEngineMajorVersion() &"."&ScriptEngineMinorVersion() &"." & ScriptEngineBuildVersion() & " "
End Function
</SCRIPT>
<script language="javascript">
<!--
function Checksearchbox()
{
if(form1.classname.value == "")
{
alert("请输入你要检测的组件名！");
form1.classname.focus();
return false;
}
}
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
eval("txt" + sid + ".innerHTML=\"<a href='#' title='关闭此项'><font face='Wingdings' color=#FFFFFF>x</font></a>\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
eval("txt" + sid + ".innerHTML=\"<a href='#' title='打开此项'><font face='Wingdings' color=#FFFFFF>y</font></a>\";");
}
}
-->
</SCRIPT>
</HEAD>
<a name=top></a>
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
<tr>
<th height=25 align=center colspan="2">查看你的网站空间信息 </th>
</tr>
<tr>
<td width=12% height=30 class=forumRow> <strong>管理导航：</strong></td>
<td width=88% height=30 class=forumRow>
<%
dim action
action=request("action")
if action="testzujian" then
call ObjTest2
end if
Call menu
Call SystemTest
Call allsizeweb
Call ObjTest
Call CalculateTest
Call DriveTest
Call SpeedTest
hx.ShowFooter
Set hx= nothing
Call AdminPageEnd()
%>
<%Sub menu%>
<a href="#SystemTest">服务器有关参数</a> | <a href="#allsizeweb">系统空间占用情况</a> | <a href="#ObjTest">服务器组件情况</a> | <a href="#CalcuateTest">服务器运算能力</a>
| <a href="#DriveTest">服务器磁盘信息</a> | <a href="#SpeedTest">服务器连接速度</a>
<%End Sub%>
<%Sub smenu(i)%>
<a href="#top" title="返回顶部"><font face='Webdings' color=#FFFFFF>5</font></a> <span id=txt<%=i%> name=txt<%=i%>><a href='#' title='关闭此项'><font face='Wingdings' color=#FFFFFF>x</font></a></span>
<%End Sub%>
<%Sub SystemTest
on error resume next
%>
</td>
</tr>
</table>
<a name="SystemTest"></a>
<table border="0" cellpadding="0" cellspacing="1" class="table" width="100%">
<tr>
<td height="25" align="center" bgcolor="#0099CF" onClick="showsubmenu(0)"><font color=#FFFFFF><strong>服务器有关参数</strong></font>
<%Call smenu(0)%></td>
</tr>
<tr>
<td style="display" id='submenu0'><table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#FFFFFF" height=18>
<td width="130"> 服务器名</td>
<td width="170" height="18"> <%=Request.ServerVariables("SERVER_NAME")%></td>
<td width="130" height="18"> 服务器操作系统</td>
<td width="170" height="18"> <%=Request.ServerVariables("OS")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td> 服务器IP</td>
<td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
<td> 服务器端口</td>
<td> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td> 服务器时间</td>
<td> <%=now%></td>
<td> 服务器CPU数量</td>
<td> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
个</td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td> IIS版本</td>
<td height="18"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td height="18"> 脚本超时时间</td>
<td height="18"> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td align=left> 服务器解译引擎</td>
<td height="18" colspan="3"> JScript: <%= getEngVerJs() %> | VBScript: <%=getEngVerVBS()%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td align=left bgcolor="#FFFFFF"> 本文件实际路径</td>
<td height="8" colspan="3" bgcolor="#FFFFFF"> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>
</table>
<%
if action="showapp" or action="showsession" or action="showvariables" or action="showwsh" then
showvariable(action)
end if
%>
</td>
</tr>
</table>
<%
End Sub
sub allsizeweb
%>
<a name="allsizeweb"></a>
<table border="0" cellpadding="0" cellspacing="1" class="table" width="100%" id=size>
<tr>
<td height="25" align="center" bgcolor="#0099CF" onClick="showsubmenu(6)"><font color="#FFFFFF"><strong>系统占用空间情况</strong></font>
<%Call smenu(6)%></td>
</tr>
<tr>
<td style="display" id='submenu6'> <table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="3"> <font face='Webdings'>4</font>系统占用空间情况(全部：<%allsize()%>)
</td>
</tr>
<tr height=18>
<td width="109" align=center bgcolor="#FFFFFF">系统图片占用：</td>
<td width="381" bgcolor="#FFFFFF"><img align=absmiddle class=PicBar width=<%=Drawbar("../images")%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../images")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width="109" align=center bgcolor="#FFFFFF">上传文件占用：</td>
<td><img align=absmiddle class=PicBar width=<%=Drawbar("../"&upfilepath)%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../"&upfilepath)%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width="109" align=center bgcolor="#FFFFFF">静态新闻占用：</td>
<td><img align=absmiddle class=PicBar width=<%=Drawbar("../html")%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../html")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width="109" align=center bgcolor="#FFFFFF">数据库占用：</td>
<td><img align=absmiddle class=PicBar width=<%=Drawbar("../data")%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../data")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width="109" align=center bgcolor="#FFFFFF">备份数据库占用：</td>
<td><img align=absmiddle class=PicBar width=<%=Drawbar("../Databackup")%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../Databackup")%></td>
</tr>
<tr bgcolor="#FFFFFF" height=25>
<td width="109" align=center bgcolor="#FFFFFF">后台管理文件占用：</td>
<td><img align=absmiddle class=PicBar width=<%=Drawbar("../admin")%>></td>
<td width="84" align=center bgcolor="#FFFFFF"><%othersize("../admin")%></td>
</tr>
</table></td>
</tr>
</table>
<%end sub
Sub ObjTest%>
<a name="ObjTest"></a>
<table border="0" cellpadding="0" cellspacing="1" class="table" width="100%">
<tr>
<td height="25" align="center" bgcolor="#0099CF" onClick="showsubmenu(1)"><strong><font color="#FFFFFF">服务器</font></strong><font color=#FFFFFF><strong>组件情况</strong></font>
<%Call smenu(1)%></td>
</tr>
<tr>
<td style="display" id='submenu1'><table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="2"> <font face='Webdings'>4</font> IIS自带的ASP组件</td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width=450 align="center">组 件 名 称</td>
<td width=150 align="center">支持及版本</td>
</tr>
<%hx.GetObjInfo 0,10%>
</table>
<table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="2"> <font face='Webdings'>4</font> 常见的文件上传和管理组件 </td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width=450 align="center">组 件 名 称</td>
<td width=150 align="center">支持及版本</td>
</tr>
<%hx.GetObjInfo 11,15%>
</table>
<table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="2"> <font face='Webdings'>4</font> 常见的收发邮件组件</td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width=450 align="center">组 件 名 称</td>
<td width=150 align="center">支持及版本</td>
</tr>
<%hx.GetObjInfo 16,23%>
</table>
<table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="2"> <font face='Webdings'>4</font> 图像处理组件</td>
</tr>
<tr bgcolor="#FFFFFF" height=18>
<td width=450 align="center">组 件 名 称</td>
<td width=150 align="center">支持及版本</td>
</tr>
<%hx.GetObjInfo 24,25%>
</table>
<table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr>
<td bgcolor="#99CCFF"> <font face='Webdings'>4</font> 其他组件支持情况检测 </td>
</tr>
<FORM action=?action=testzujian method=post id=form1 name=form1 onSubmit="JavaScript:return Checksearchbox();">
<tr>
<td height=30 bgcolor="#FFFFFF">输入你要检测的组件的ProgId或ClassId
<input class=input type=text value="" name="classname" size=40>
<INPUT type=submit value="确定" class=backc id=submit1 name=submit1>
</td>
</tr>
</FORM>
</table></td>
</tr>
</table>
<%
End Sub
Sub ObjTest2
Dim strClass
strClass = Trim(Request.Form("classname"))
If strClass <> "" then
Response.Write "<br>您指定的组件的检查结果："
If Not hx.IsObjInstalled(strClass) then
Response.Write "<br><font color=red>很遗憾，该服务器不支持" & strclass & "组件！</font>"
Else
Response.Write "<br><font color=green>"
Response.Write " 恭喜！该服务器支持" & strclass & "组件。"
If hx.getver(strclass)<>"" then
Response.Write " 该组件版本是：" & hx.getver(strclass)
End if
Response.Write "</font>"
End If
Response.Write "<br>"
end if
Response.Write "<p><a href="&hx.FileName&">返回</a></p>"
Response.End
End Sub
Sub CalculateTest
%><a name="CalcuateTest"></a>
<table border="0" cellpadding="0" cellspacing="1" class="table" width="100%">
<tr>
<td height="25" align="center" bgcolor="#0099CF" onClick="showsubmenu(2)"><font color="#FFFFFF"><strong>服务器运算能力</strong></font>
<%Call smenu(2)%></td>
</tr>
<tr>
<td style="display" id='submenu2'> <table border=0 width=100% cellspacing=1 cellpadding=3 bgcolor="#0099CF">
<tr bgcolor="#99CCFF" height=18>
<td colspan="3"> <font face='Webdings'>4</font> 让服务器执行50万次加法(<font color="#000000">整数运算</font>)和20万次开方(<font color="#000000">浮点运算</font>)，记录其所使用的时间。
</td>
</tr>
<tr height=18>
<td width="400" align=center bgcolor="#FFFFFF"><font color="#000000">可
供 参 考 的 服 务 器 列 表</font></td>
<td width="100" align=center bgcolor="#FFFFFF"><font color="#000000">整数运算</font>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -