pe_detect.asp

《动易网站管理系统》2005 SP2正式版中

<%@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
%>
服务器类型&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)<br>
动易2005组件支持&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("PE_Common.GetVersion") Then
	response.write "未检测到组件<br>"
	err4=1
else
	response.write "<font color='red'>" & Get_PE_Version() & "</font> 版<br>"
end if
%>

动易4.03组件支持&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("PowerEasy.GetVersion") Then
	response.write "未检测到组件<br>"
	err5=1
else
	response.write "<font color='red'>" & Get_PW_Version() & "</font> 版<br>"
end if
%>
脚本解释引擎&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;：<%
    response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
    if Csng(ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion)<5.6 then
	err0=1
    end if
    %><br>
数据库使用&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
%>
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
%>
XMLHTTP组件&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("MSXML2.XMLHTTP") Then
	response.write "错误<br>"
	err6=1 
else
	response.write "正常<br>"
end if
%>
AspJpeg组件支持&nbsp;&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("Persits.Jpeg") Then
	response.write "未检测到组件<br>"
	err2=1
else
	response.write "正常<br>"
end if
%>
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
%>
CDONTS组件支持&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("CDONTS.NewMail") Then
	response.write "未检测到组件<br>"
	err3=err3+1
else
	response.write "正常<br>"
end if
%>
ASPEMAIL组件支持&nbsp;&nbsp;&nbsp;：<%If Not IsObjInstalled("Persits.MailSender") Then
	response.write "未检测到组件<br>"
	err3=err3+1
else
	response.write "正常<br>"
end if
%>
WebEasyMail组件支持：<%If Not IsObjInstalled("easymail.MailSend") Then
	response.write "未检测到组件<br>"
	err3=err3+1
else
	response.write "正常<br>"
end if
%>

----------<br>
您检测的服务器空间:<br>
<%
if (err4=0 or err5=0) and err1=0 then
	response.write "&nbsp;&nbsp;支持动易网站管理系统"
	if err4=0 then response.write "2005版"
	if err4=0 then
		if err5=0 then response.write "及4.03版"
	else
		if err5=0 then response.write "4.03版"
	end if
	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
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_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
%>