📄 admin_server.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>
<html>
<head>
<title>检测主机信息</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
</head>
<body leftmargin="10" topmargin="10" bgcolor="#FFFFFF">
<!--#include file="Include/Session.asp"-->
<table border="0" cellpadding="0" cellspacing="1" width="600" height="82" bgcolor="#CEEFE7">
<tr>
<td width="605" height="30" background="Images/Admin_T_Bg1.gif" align="center"><font class="BlackS12"><b>网 站 管 理 中 心</b></font></td>
</tr>
<tr>
<td width="598" height="10" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="595" height="91" bgcolor="#FFFFFF" align="center"><font class="BlackS12">感谢使用浪人文章，程序版本:2.4.9，对本程序有任何建议或者意见，欢迎<a href="http://www.lre.cn/note" target="_blank" class="NavyS12">给我留言</a>或<a href="mailto:gueeon@gmail.com" target="_blank" class="NavyS12">发邮件</a></font></td>
</tr>
<tr>
<td width="598" height="28" bgcolor="#FFFFFF" align="right"><a href="http://www.lre.cn" target="_blank" class="BlackS12">浪人网络</a> <a href="mailto:gueeon@gmail.com" target="_blank" class="BlackS12">啊估设计</a> </td>
</tr>
</table>
<br>
<br>
<%
dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<tr>
<td width="600" height="30" background="Images/Admin_T_Bg1.gif" colspan="4" align="center"><font class="BlackS12"><b>检 测 主 机 信 息</b></font></td>
</tr>
<tr>
<td width="600" height="10" bgcolor="#FFFFFF" colspan="4"></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">服务器类型 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=Request.ServerVariables("OS")%></font></td>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">脚本解释引擎 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">服务器软件 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">Access数据库 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <%if Not IsObjInstalled(theInstalledObjects(10)) Then%><font class="SilverS12">不支持，可能无法正常使用本程序</font><%else%><font class="BlackS12">支持</font><%end if%></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">服务器IP </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=Request.ServerVariables("LOCAL_ADDR")%></font></td>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">FSO文本读写 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <%if Not IsObjInstalled(theInstalledObjects(9)) Then%><font class="SilverS12">不支持，可能无法正常本程序</font><%else%><font class="BlackS12">支持</font><%end if%></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">服务器时间 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=now()%></font></td>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">Jmail组件 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <%if Not IsObjInstalled(theInstalledObjects(13)) Then%><font class="SilverS12">不支持</font><%else%><font class="BlackS12">支持</font><%end if%></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">站点物理路径 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></td>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">CDONTS组件 </font></td>
<td width="210" height="28" bgcolor="#FFFFFF"> <%if Not IsObjInstalled(theInstalledObjects(14)) Then%><font class="SilverS12">不支持</font><%else%><font class="BlackS12">支持</font><%end if%></font></td>
</tr>
<tr>
<td width="90" height="28" bgcolor="#FFFFFF" align="right"><font class="BlackS12">浏览器版本 </font></td>
<td width="510" height="28" bgcolor="#FFFFFF" colspan="3"> <font class="BlackS12" title="<%=Request.ServerVariables("Http_User_Agent")%>"><%=Left(Request.ServerVariables("Http_User_Agent"),78)%>...</font></td>
</tr>
</table>
<%
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
Function getver(Classstr)
On Error Resume Next
getver=""
Err=0
dim xTestObj
Set xTestObj=Server.CreateObject(Classstr)
if 0=Err Then getver=xtestobj.version
Set xTestObj=Nothing
Err=0
End Function
%>
<!--#include file="Include/Message.asp"-->
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -