admin_main.asp
来自「使用Asp+Access+FSO+Jmail+Servu开发」· ASP 代码 · 共 78 行
ASP
78 行
<!--#include file="admin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width='80%' border="1" align="center" cellpadding=4 cellspacing=0 class="table-line">
<tr><td height="30" colspan=2 align=center bgcolor=#ffffff class=td-title-color>服务器的有关参数</td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器名：</td>
<td><%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器IP：</td>
<td><%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器端口：</td>
<td><%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器时间：</td>
<td><%response.write now%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>IIS版本：</td>
<td><%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器操作系统：</td>
<td><%response.write Request.ServerVariables("OS")%></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>脚本超时时间：</td>
<td><%response.write Server.ScriptTimeout%> 秒</td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>站点物理路径：</td>
<td><%=server.MapPath("..")%>\</td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器CPU数量：</td>
<td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>服务器解译引擎：</td>
<td><%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
<tr><td height="30" colspan=2 align=center bgcolor=#ffffff class=td-title-color>组件支持有关参数</td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>数据库(ADO)支持：</td>
<td><%if object_install("adodb.connection") then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>FSO文本读写：</td>
<td><%if object_install("scripting.filesystemobject") then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>Stream文件流：</td>
<td><%if object_install("Adodb.Stream") then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>Jmail组件支持：</td>
<td><%If object_install("JMail.SMTPMail") Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>CDONTS组件支持：</td>
<td><%If object_install("CDONTS.NewMail") Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
</table>
<%
function object_install(strclassstring)
on error resume next
object_install
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function
%></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?