<%
Const SiteSysName = "张家界企业网站管理系统"
Const SiteSysCms = "zjjcms"

Function Get_ObjInfo(obj, ver)
    On Error Resume Next
    Dim objTest, sTemp
    Set objTest = Server.CreateObject(obj)
    If Err.Number <> 0 Then
        Err.Clear
        Get_ObjInfo = "<font style=""color:#F00;font-weight:bold"">×</font>　<font style=""color:#00F;"">不支持</font>"
    Else
        sTemp = ""
        If ver = 1 Then
            sTemp = objTest.Version
            If IsNull(sTemp) Then sTemp = objTest.about
            sTemp = Replace(sTemp, "Version", "")
            sTemp = "　<font style=""color:blue;"">" & sTemp & "</font>"
        End If
        Get_ObjInfo = "<font style=""font-weight:bold"">√</font>　<font style=""color:blue;"">支持</font>" & sTemp
    End If
    Set objTest = Nothing
    If Err.Number <> 0 Then Err.Clear
End Function
%>