📄 main.asp
字号:
<!--#include file="checkadmin.asp" -->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 漂亮的企业网站ASP免费版本 ☆
'★ ★
'☆ 版权所有: ML ☆
'★ ★
'☆ 程序制作: ML ☆
'★ email:xinranyx@sina.com ★
'☆ QQ:1474579 ☆
'★ 商业版本请联系购买!!! ★
'☆ ☆
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #F7F7F7;
}
body,td,th {
font-size: 12px;
}
a {
font-size: 12px;
}
-->
</style></head>
<body>
<div align="center"><br>
<br>
<br>
<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">ML</td>
</tr>
</table>
<div align="center"></div></TD>
</TR>
</table>
<br>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -