asp检测各服务器组件

来源：互联网发布：域名备案代理编辑：程序博客网时间：2024/05/20 19:47

怎么用asp判断下面的信息这里我是看到动态网的.

FSO文件读写  √                                  Jmail发送邮件支持  ×
CDONTS发送邮件支持  ×                      AspEmail发送邮件支持  ×
无组件上传支持  √                               AspUpload上传支持  ×
SA-FileUp上传支持  ×                         DvFile-Up上传支持  ×
CreatePreviewImage生成预览图片  ×    AspJpeg生成预览图片  ×
SA-ImgWriter生成预览图片  ×             ADO(数据库访问)版本:2.8  √

<%
dim err0,err1,err2,err3,err4,err5,err6
err0=0
err1=0
err2=0
err3=0
err4=0
err5=0
err6=0
%>
<div align="center">
 <center>
 <table border="0" cellpadding="0" cellspacing="0" width="98%">
<form method="POST" action="admin_addadminc.asp" name="form1" onsubmit="return false;">
<tr>
 <td width="100%" bgcolor="#183789">
 <table border="0" cellpadding="0" cellspacing="1" width="100%">
 <tr>
 <td width="100%" bgcolor="#FFFFFF">
 <table border="0" cellpadding="0" cellspacing="1" width="100%">
 <tr>
 <td width="100%" bgcolor="#F1F3F5" height="25" colspan="2" background="images/admin_bg_1.gif" align="center">=>
 服务器信息统计 <=</td>
 </tr>
 <tr>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">服务器类型：<%=Request.ServerVariables("OS")%>（IP：<%=Request.ServerVariables("LOCAL_ADDR")%>）</td>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">脚本解释引擎：
 <% response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
 if Csng(ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion)<5.6 then
 err0=1
 end if
 %></td>
 </tr>
 <tr>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">数据库使用：
 <% If Not IsObjInstalled("adodb.connection") Then
 response.write "×"
 err1=1
 else
 response.write "√"
 end if
 %></td>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">FSO文本读写：
 <% If Not IsObjInstalled("Scripting.FileSystemObject") Then
 response.write "×"
 err1=1
 else
 response.write "√"
 end if
 %>
 </td>
 </tr>
 <tr>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">XMLHTTP组件：
 <% If Not IsObjInstalled("MSXML2.XMLHTTP") Then
 response.write "×"
 err6=1
 else
 response.write "√"
 end if
 %></td>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">AspJpeg组件支持：
 <% If Not IsObjInstalled("Persits.Jpeg") Then
 response.write "×"
 err2=1
 else
 response.write "√"
 end if
 %>
 </td>
 </tr>
 <tr>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">Jmail组件支持：
 <% If Not IsObjInstalled("JMail.SMTPMail") Then
 response.write "×"
 err3=err3+1
 else
 response.write "√"
 end if
 %></td>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">CDONTS组件支持：
 <% If Not IsObjInstalled("CDONTS.NewMail") Then
 response.write "×"
 err3=err3+1
 else
 response.write "√"
 end if
 %></td>
 </tr>
 <tr>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">ASPEMAIL组件支持：
 <% If Not IsObjInstalled("Persits.MailSender") Then
 response.write "×"
 err3=err3+1
 else
 response.write "√"
 end if
 %></td>
 <td width="50%" bgcolor="#F1F3F5" height="24" class="td">WebEasyMail组件支持：
 <% If Not IsObjInstalled("easymail.MailSend") Then
 response.write "×"
 err3=err3+1
 else
 response.write "√"
 end if
 %></td>
 </tr>
 <tr>
 <td width="100%" bgcolor="#F1F3F5" colspan="2" height="24" class="td">站点物理路径：<%=server.mappath(".") %></td>
 </tr>
 </table>
 </td>
 </tr>
 </table>
 </td>
</tr>
</form>
 </table>
 </center>
</div>
<%
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 Get_PE_Version()
On Error Resume Next
Dim PE_Version, strVersion
Set PE_Version = server.CreateObject("PE_Common.GetVersion")
If Err Then
 Err.Clear
 strVersion = "未知"
Else
 strVersion = PE_Version.strVersion
End If
Set PE_Version = Nothing
Get_PE_Version = strVersion
End Function

Function Get_PW_Version()
On Error Resume Next
Dim PE_Version, strVersion
Set PE_Version = server.CreateObject("PowerEasy.GetVersion")
If Err Then
 Err.Clear
 strVersion = "未知"
Else
 strVersion = PE_Version.strVersion
End If
Set PE_Version = Nothing
Get_PW_Version = strVersion
End Function
%>