Kite's Blog 技术文章版

<table cellspacing="0" cellpadding="0">
<TR>
<TD width="468" height="89" align="middle"><strong>
<center>admin：欢迎您使用本系统<BR>
<BR>
<strong></strong>
</center></strong><strong><center>为保证系统数据安全，使用完后请点击退出！</center></strong></TD>
</TR>
<TR>
<TD><table width="100%" align="center" cellpadding="4" cellspacing="1" bgcolor="#333333" class="tableborder">
<tr>
<td colspan="2" bgcolor="#F7F7F7" class="header">服务器环境</td>
</tr>
<tr>
<td width="35%" bgcolor="#F7F7F7" class="altbg1">服务器名</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器IP</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器端口</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器时间</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=now%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">IIS版本</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">脚本超时时间</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器CPU数量</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器解译引擎</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">服务器操作系统</td>
<td bgcolor="#F7F7F7" class="altbg2"><%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">FSO读写</td>
<td bgcolor="#F7F7F7" class="altbg2"><%Function IsObjInstalled(strClassString)
  On Error Resume Next
  IsObjInstalled = False
  Err = 0
  Dim xTestObj
  Set xTestObj = Server.CreateObject(strClassString)
  If 0 = Err Then IsObjInstalled = True
  Set xTestObj = Nothing
  Err = 0
End Function%>
<%if IsObjInstalled("Scripting.FileSystemObject") then response.write ("<font color=""#fc0000"">已安装</font>") else response.write ("未安装") end if%></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="altbg1">程序制作</td>
<td bgcolor="#F7F7F7" class="altbg2">Kite</td>
</tr>
</table>
<div align="center"></div></TD>
</TR>
</table>