test.asp

学生课级管理系统 学生课级管理系统

<%  
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"  
 
'检查组件是否被支持  
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  
%>  
<font  color=green>服务器的有关参数</font>  
<table  border=0  width=450  cellspacing=0  cellpadding=0  bgcolor="#3F8805">  
<tr><td>  
 
           <table  border=0  width=450  cellspacing=1  cellpadding=0>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器名</td><td>&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器IP</td><td>&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器端口</td><td>&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器时间</td><td>&nbsp;<%=now%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;IIS版本</td><td>&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;脚本超时时间</td><td>&nbsp;<%=Server.ScriptTimeout%>  秒</td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;本文件路径</td><td>&nbsp;<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器CPU数量</td><td>&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>  个</td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器解译引擎</td><td>&nbsp;<%=ScriptEngine  &  "/"&  ScriptEngineMajorVersion  &"."&ScriptEngineMinorVersion&"."&  ScriptEngineBuildVersion  %></td>  
               </tr>  
               <tr  bgcolor="#EEFEE0"  height=18>  
                       <td  align=left>&nbsp;服务器操作系统</td><td>&nbsp;<%=Request.ServerVariables("OS")%></td>  
               </tr>  
           </table>  
 
</td></tr>  
</table>