pe_detect.asp

动易2006sql全功能版 如果遇到MD5加密文件

<%@language=vbscript codepage=936 %>
<%
Dim err0, err1, err2, err3, err4, err5, err6
err0 = 0
err1 = 0
err2 = 0
err3 = 0
err4 = 0
err5 = 0
err6 = 0
err7 = 0
err8 = 0

Response.Write "服务器类型&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;：" & Request.ServerVariables("OS") & "(IP:" & Request.ServerVariables("LOCAL_ADDR") & ")<br>"
Response.Write "动易2006组件支持&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("PE_CMS6.GetVersion") Then
    Response.Write "未检测到组件<br>"
    err7 = 1
Else
    Response.Write "<font color='red'>" & Get_Version("2006") & "</font> 版<br>"
End If

Response.Write "动易2005组件支持&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("PE_Common.GetVersion") Then
    Response.Write "未检测到组件<br>"
    err4 = 1
Else
    Response.Write "<font color='red'>" & Get_Version("2005") & "</font> 版<br>"
End If

Response.Write "动易4.03组件支持&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("PowerEasy.GetVersion") Then
    Response.Write "未检测到组件<br>"
    err5 = 1
Else
    Response.Write "<font color='red'>" & Get_Version("4.03") & "</font> 版<br>"
End If
Response.Write "脚本解释引擎&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
Response.Write ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then
    err0 = 1
End If
Response.Write "<br>"
Response.Write "数据库使用&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("adodb.connection") Then
    Response.Write "错误<br>"
    err1 = 1
Else
    Response.Write "正常<br>"
End If
Response.Write "FSO文本读写&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("Scripting.FileSystemObject") Then
    Response.Write "错误<br>"
    err1 = 1
Else
    Response.Write "正常<br>"
End If

Response.Write "基本XMLHTTP组件&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("Microsoft.XMLHTTP") Then
    Response.Write "错未检测到组件<br>"
    err6 = 1
Else
    Response.Write "正常<br>"
End If

Response.Write "扩展XMLHTTP组件&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("MSXML2.XMLHTTP") Then
    Response.Write "未检测到组件<br>"
Else
    Response.Write "正常<br>"
End If

Response.Write "XML服务器端组件&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("MSXML2.ServerXMLHTTP") Then
    Response.Write "未检测到组件<br>"
    err8 = 1
Else
    Response.Write "正常<br>"
End If

Response.Write "XML4.0版本组件&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("MSXML4.XMLHTTP") Then
    Response.Write "未检测到组件<br>"
Else
    Response.Write "正常<br>"
End If

Response.Write "AspJpeg组件支持&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("Persits.Jpeg") Then
    Response.Write "未检测到组件<br>"
    err2 = 1
Else
    Response.Write "正常<br>"
End If
Response.Write "Jmail组件支持&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("JMail.SMTPMail") Then
    Response.Write "未检测到组件<br>"
    err3 = err3 + 1
Else
    Response.Write "正常<br>"
End If
Response.Write "CDONTS组件支持&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("CDONTS.NewMail") Then
    Response.Write "未检测到组件<br>"
    err3 = err3 + 1
Else
    Response.Write "正常<br>"
End If
Response.Write "ASPEMAIL组件支持&nbsp;&nbsp;&nbsp;："
If Not IsObjInstalled("Persits.MailSender") Then
    Response.Write "未检测到组件<br>"
    err3 = err3 + 1
Else
    Response.Write "正常<br>"
End If
Response.Write "WebEasyMail组件支持："
If Not IsObjInstalled("easymail.MailSend") Then
    Response.Write "未检测到组件<br>"
    err3 = err3 + 1
Else
    Response.Write "正常<br>"
End If


Response.Write "----------<br>"
Response.Write "您检测的服务器空间:<br>"

If (err4 = 0 Or err5 = 0 Or err7 = 0) And err1 = 0 Then
    Response.Write "&nbsp;&nbsp;支持动易网站管理系统"
    If err7 = 0 Then Response.Write " 2006版"
    If err4 = 0 Then Response.Write " 2005版"
    If err5 = 0 Then Response.Write " 4.03版"
    If err6 = 0 Then
        If err4 = 0 Then
            Response.Write "<br>&nbsp;&nbsp;可使用自动保存远程图片功能及采集系统"
        Else
            Response.Write "<br>&nbsp;&nbsp;可使用自动保存远程图片功能"
        End If
    Else
        If err4 = 0 Then
            Response.Write "<br>&nbsp;&nbsp;<font color=red>不支持自动保存远程图片功能及采集系统</font>"
        Else
            Response.Write "<br>&nbsp;&nbsp;<font color=red>不支持自动保存远程图片功能</font>"
        End If
    End If
    If err4 = 0 And err2 = 0 Then
        Response.Write "<br>&nbsp;&nbsp;可使用图片水印功能"
    Else
        Response.Write "<br>&nbsp;&nbsp;<font color=red>不能使用图片水印功能</font>"
    End If
    If err3 < 4 Then
        Response.Write "<br>&nbsp;&nbsp;可使用发送邮件功能"
    Else
        Response.Write "<br>&nbsp;&nbsp;<font color=red>不能使用发送邮件功能</font>"
    End If
    If err8 = 0 Then
        Response.Write "<br>&nbsp;&nbsp;可使用聚合空间"
    Else
        Response.Write "<br>&nbsp;&nbsp;<font color=red>不能使用聚合空间</font>"
    End If
Else
    Response.Write "<br>&nbsp;&nbsp;<font color=red>不支持2005及4.X版本的动易网站管理系统</font>"
    If err1 = 1 Then Response.Write "<br>&nbsp;&nbsp;<font color=red>也不支持早期的动力网站管理系统</font>"
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 Get_Version(Version)
    On Error Resume Next
    Dim PE_Version, strVersion
    If Version = "4.03" Then
        Set PE_Version = server.CreateObject("PowerEasy.GetVersion")
    ElseIf Version = "2005" Then
        Set PE_Version = server.CreateObject("PE_Common.GetVersion")
    ElseIf Version = "2006" Then
        Set PE_Version = server.CreateObject("PE_CMS6.GetVersion")
    Else
    End If
    If Err Then
        Err.Clear
        strVersion = "未知"
    Else
        strVersion = PE_Version.strVersion
    End If
    Set PE_Version = Nothing
    Get_Version = strVersion
End Function
%>