📄 admin_other.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
%>
<html>
<head>
<title>服务器信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center">主机环境变量</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<tr>
<td width="20%"><br>服务器的域名</td>
<td width="80%"><%=Request.ServerVariables("server_name")%></td>
</tr>
<tr>
<td>服务器的IP地址</td>
<td><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td>服务器操作系统</td>
<td><%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td>服务器解译引擎</td>
<td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td>服务器软件的名称及版本</td>
<td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td>服务器正在运行的端口</td>
<td><%=Request.ServerVariables("server_port")%></td>
</tr>
<tr>
<td>服务器CPU数量</td>
<td bgcolor='#eeeeee'><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td>服务器Application数量</td>
<td><%=Application.Contents.Count%> 个</td>
</tr>
<tr>
<td>服务器Session数量</td>
<td><%=Session.Contents.Count%> 个</td>
</tr>
<tr>
<td>请求的物理路径</td>
<td bgcolor='#eeeeee'><%=Request.ServerVariables("path_translated")%></td>
</tr>
<tr>
<td>请求的URL</td>
<td>http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr>
<td>服务器当前时间</td>
<td><%=now()%></td>
</tr>
<tr>
<td align="center" colspan="2">组件支持情况</td>
</tr>
<tr>
<td>数据库使用</td>
<td><%ShowObjectInstalled("adodb.connection")%></td>
</tr>
<tr>
<td>FSO文本读写</td>
<td><%ShowObjectInstalled("Scripting.FileSystemObject")%></td>
</tr>
<tr>
<td>AspJpeg组件支持</td>
<td><%ShowObjectInstalled("Persits.Jpeg")%></td>
</tr>
<tr>
<td>CDONTS组件支持</td>
<td><%ShowObjectInstalled("CDONTS.NewMail")%></td>
</tr>
<tr>
<td>ASPEMAIL组件支持</td>
<td><%ShowObjectInstalled("Persits.MailSender")%></td>
</tr>
<tr>
<td>Jmail组件支持</td>
<td><%ShowObjectInstalled("JMail.SMTPMail")%></td>
</tr>
<tr>
<td align="center" colspan="2">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td>
</tr>
</table>
</div>
</body>
</html>
<%
Sub ShowObjectInstalled(strObjName)
If IsObjInstalled(strObjName) Then
Response.Write "<b>√</b>"
Else
Response.Write "<font color='red'><b>×</b></font>"
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -