admin_other.asp

本程序采用花香内核

<%Admin="other"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=inc/admin.css rel=stylesheet>
<%
if session("adminlogin")<>sessionvar then
  founderr=true
Response.Write("<script language=javascript>alert('您尚未登陆或登陆超时，请重新登陆!！');this.top.location.href='admin.asp';</script>")
  response.end
else
select case Request("menu")
case "discreteness"
discreteness
case "help"
help
case "circumstance"
circumstance
end select
sub circumstance
%>
<table width=98% align="center" border="1" cellspacing="0" cellpadding="3" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss>
<td colspan="2" height="25">主机环境变量</td>
</tr>
<tr class=lanyuqs>
<td height="16" align="center">项目</td>
<td width="66%" align="center">值</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器的域名</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_name")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器的IP地址</td>
<td width="66%" height="25"><%=Request.ServerVariables("LOCAL_ADDR")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器操作系统</td>
<td width="66%" height="25"><%=Request.ServerVariables("OS")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器解译引擎</td>
<td width="66%" height="25"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器软件的名称及版本</td>
<td width="66%" height="25"><%=Request.ServerVariables("SERVER_SOFTWARE")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器正在运行的端口</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_port")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服务器CPU数量</td>
<td width="66%" height="25"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>

<tr class=lanyuds>
<td height="25">服务器Application数量</td>
<td width="66%" height="25"><%=Application.Contents.Count%> 个</td>
</tr>

<tr class=lanyuds>
<td height="25">服务器Session数量</td>
<td width="66%" height="25"><%=Session.Contents.Count%> 个</td>
</tr>

<tr class=lanyuds>
<td height="25">请求的物理路径</td>
<td width="66%" height="25"><%=Request.ServerVariables("path_translated")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">请求的URL</td>
<td width="66%" height="25">http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr class=lanyuds>
<td height="25">服务器当前时间</td>
<td width="66%" height="25"><%=now()%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">脚本连接超时时间</td>
<td width="66%" height="25"><%=Server.ScriptTimeout%> 秒</td>
</tr>
</table>
<%
end sub
sub help%>
正在紧张编制中.......
<%
end sub
sub discreteness
%>
<table width=98% align="center" border="1" cellspacing="0" cellpadding="3" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss>
<td colspan="2" height="25">组件支持情况</td>
</tr>
<tr class=lanyuqs>
<td width="57%">&nbsp;组件名称</td><td width="41%">支持及版本</td>
</tr>
<%
Dim theInstalledObjects(16)
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) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "<TR class=lanyuds><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 7
Response.Write "(FSO 文本文件读写)"
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(SA-FileUp 文件上传)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 邮件发送)"
case 12
Response.Write "(WIN虚拟SMTP 发信)"
case 13
Response.Write "(ASPEmail 邮件发送)"
case 14
Response.Write "(LyfUpload 文件上传)"
case 15
Response.Write "(ASPUpload 文件上传)"
case 16
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
end sub
 end if
''''''''''''''''''''''''''''''
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
%>