📄 admin_first.asp
字号:
<!--#include file="inc/Conn.asp" -->
<!--#include file="Admin_IsLogin.asp" --><%
Function testObject(str)
On Error Resume Next
testObject = False
Err = 0
Dim TestObj
Set TestObj = Server.CreateObject(str)
If 0 = Err Then testObject = True
Set TestObj = Nothing
Err = 0
End Function
Function GetFileSize(file)
Dim fso,fs,GetFile
On Error Resume Next
Set Fso = Server.createobject("scripting.filesystemobject")
Set GetFile=fso.getfile(server.mappath(file))
GetFileSize=GetFile.size
Set getfile=nothing
Set fso=nothing
End Function
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</head>
<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
<tbody>
<tr>
<th height=21 colspan="2" sytle="line-height:150%">【系统信息】</th>
</tr>
<tr>
<td width="47%" class=forumRow>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)
</td>
<td width="53%" class=forumRowHighlight>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
</td>
</tr>
<tr>
<td class=forumRow>服务器端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
<td class=forumRowHighlight>IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td class=forumRow>脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
<td class=forumRowHighlight>服务器CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td class=forumRow>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class=forumRowHighlight>数据库使用：
<%If Not testObject("adodb.connection") Then%>
<font color="#FF3300"><b>×</b></font>
<%else%>
<b><font color="#FF3300">√</font></b>
<%end if%>
</td>
</tr>
<tr>
<td class=forumRow>FSO文本读写：
<%If Not testObject("scripting.filesystemobject") Then%>
<b><font color="#FF0000">×</font></b>
<%else%>
<b><font color="#FF0000">√</font></b>
<%end if%>
</td>
<td class=forumRowHighlight>数据库大小：<b><font color="#FF0000"><%=GetFileSize(dbpath)/1024&" KB"%></font></td>
</tr>
</tbody>
</table>
<br>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
<tbody>
<tr>
<th height=21 colspan="2" sytle="line-height:150%">【其他信息】</th>
</tr>
<tr>
<td width="47%" class=forumRow><span class="forumRowHighlight">程序开发:设计组员</span></td>
<td width="53%" class=forumRowHighlight><span class="forumRow">QQ：357865220</span></td>
</tr>
<tr>
<td class=forumRow>主页：<a target="_blank" href="http://www.baidu.com">http://www.baidu.com</a></td>
<td class=forumRowHighlight><span class="forumRow">E-mail：<a href="mailto:btxa@163.com">guoguo6060@yahoo.com.cn</a></span></td>
</tr>
<tr>
<td class=forumRow colspan="2" style="background-color: #D4DEF9">
<p align="center"><a target="_blank" href="http://www.fyasp.com">
</a></td>
</tr>
</tbody>
</table>
<!--#include file="end.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -