📄 server.asp
字号:
<head>
<LINK href=../css/css.css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" topmargin="7">
<table width="99%" height="224" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#F7FFF4">
<td height="20" colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="../images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#CC0000"><b><font color="#000000">服务器信息</font></b></font></b></div></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20"> 服务器类型：<%=Request.ServerVariables("OS")%><font face="Verdana, Arial, Helvetica, sans-serif">(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td>
<td height="20"> 站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="48%" height="20"> 返回服务器的主机名，<font face="Verdana, Arial, Helvetica, sans-serif">DNS</font>别名，或<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址：<font color=blue><%=Request.ServerVariables("SERVER_NAME")%></font></td>
<td width="52%" height="20"> 服务器操作系统：<font color=blue><%=Request.ServerVariables("OS")%></font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="48%" height="20"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td width="52%" height="20"> <font face="Verdana, Arial, Helvetica, sans-serif">WEB</font>服务器的名称和版本：<font color=blue><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="48%" height="20"> 脚本超时时间：<font color=blue><%=Server.ScriptTimeout%></font>
秒</td>
<td width="52%" height="20"> 数据库使用：
<%
On Error Resume Next
Server.CreateObject("adodb.connection")
if err=0 then
response.write("<font color=blue>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%>
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="48%" height="20"> <font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS
</font> 数据库<font face="Verdana, Arial, Helvetica, sans-serif">)</font>：
<%
On Error Resume Next
Server.CreateObject("JRO.JetEngine")
if err=0 then
response.write("<font color=blue>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%>
</td>
<td width="52%" height="20"> <font face="Verdana, Arial, Helvetica, sans-serif">CDONTS</font>组件支持：
<%
On Error Resume Next
Server.CreateObject("CDONTS.NewMail")
if err=0 then
response.write("<font color=blue>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%>
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20"> <font face="Verdana, Arial, Helvetica, sans-serif">FSO</font>文本文件读写：
<%
On Error Resume Next
Server.CreateObject("Scripting.FileSystemObject")
if err=0 then
response.write("<font color=blue>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%>
</td>
<td height="20"> <font face="Verdana, Arial, Helvetica, sans-serif">Jmail</font>组件支持
<font color="#0033FF">
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<font color="#FF0000">×</font></font> <font color="#0033FF" face="Verdana, Arial, Helvetica, sans-serif">
<%else%>
√
<%end if%>
</font> </td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20"> 脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
<td height="20"> 服务器 CPU 数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
个</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20"> 显示执行 SCRIPT 的虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
<td height="20"> 协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20"> 返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
<td height="20"> </td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -