?? 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%">【系統(tǒng)信息】</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數(shù)量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 個</td>
</tr>
<tr>
<td class=forumRow>站點物理路徑:<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class=forumRowHighlight>數(shù)據(jù)庫使用:
<%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>數(shù)據(jù)庫大小:<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">程序開發(fā):設計組員</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 + -