<%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('您尚未登陸或登陸超時(shí)，請重新登陸!！');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">主機(jī)環(huán)境變量</td>
</tr>
<tr class=lanyuqs>
<td height="16" align="center">項(xiàng)目</td>
<td width="66%" align="center">值</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器的域名</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_name")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器的IP地址</td>
<td width="66%" height="25"><%=Request.ServerVariables("LOCAL_ADDR")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器操作系統(tǒng)</td>
<td width="66%" height="25"><%=Request.ServerVariables("OS")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器解譯引擎</td>
<td width="66%" height="25"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器軟件的名稱及版本</td>
<td width="66%" height="25"><%=Request.ServerVariables("SERVER_SOFTWARE")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器正在運(yùn)行的端口</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_port")%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">服務(wù)器CPU數(shù)量</td>
<td width="66%" height="25"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 個(gè)</td>
</tr>

<tr class=lanyuds>
<td height="25">服務(wù)器Application數(shù)量</td>
<td width="66%" height="25"><%=Application.Contents.Count%> 個(gè)</td>
</tr>

<tr class=lanyuds>
<td height="25">服務(wù)器Session數(shù)量</td>
<td width="66%" height="25"><%=Session.Contents.Count%> 個(gè)</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">服務(wù)器當(dāng)前時(shí)間</td>
<td width="66%" height="25"><%=now()%>　</td>
</tr>
<tr class=lanyuds>
<td height="25">腳本連接超時(shí)時(shí)間</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 數(shù)據(jù)庫)"
case 9
Response.Write "(SA-FileUp 文件上傳)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 郵件發(fā)送)"
case 12
Response.Write "(WIN虛擬SMTP 發(fā)信)"
case 13
Response.Write "(ASPEmail 郵件發(fā)送)"
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
%>