PJBlog 2.7 build 04版的后台“你的系统不支持getXMLDOM函数”等错误解决办法

问题出在PJBlog 2.7 build 04使用JScript重写了getXMLDOM函数，而有的虚拟主机不兼容JScript。
出错代码：
————————————————————–
你的系统不支持 function getXMLDOM(){ var xmldomversions = ['Microsoft.XMLDOM','MSXML2.DOMDocument','MSXML2.DOMDocument.3.0',
'MSXML2.DOMDocument.4.0','MSXML2.DOMDocument.5.0']; for (var i=0;i，
无法使用插件管理功能，请与服务商联系！
—————————————————————

—————————————————————-
你的系统不支持 function getXMLDOM(){ var xmldomversions = ['Microsoft.XMLDOM','MSXML2.DOMDocument','MSXML2.DOMDocument.3.0',
'MSXML2.DOMDocument.4.0','MSXML2.DOMDocument.5.0']; for
(var i=0;i 或 Scripting.FileSystemObject 只能手动输入Skin的文件夹名称
—————————————————————–

解决办法是把getXMLDOM函数改成vbs的就OK了，即2.6版本里的代码。

首先，建议你在修改之前备份一下common\function.asp文件。

找到代码：

复制内容到剪贴板 程序代码

function getXMLHTTP(){
  var xmlhttpversions = ['Microsoft.XMLHTTP', 'MSXML2.XMLHTTP', 'MSXML2.XMLHTTP.3.0',
'MSXML2.XMLHTTP.4.0','MSXML2.XMLHTTP.5.0'];
  for (var i=0;i<xmlhttpversions.length;i++){
   try{
    var st = Server.CreateObject(xmlhttpversions);
    st = null;
    return xmlhttpversions;
   }catch(e){}
  }
  return false
}

删除它或者使用“//”注释掉，使它不起作用。

接着，将下面的代码复制到function.asp文件的开始处的<%后面，保存。

复制内容到剪贴板 程序代码

Function getXMLDOM  
On Error Resume Next
Dim Temp
getXMLDOM="Microsoft.XMLDOM"
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(getXMLDOM)
Temp = Err
    IF Temp = 1 or Temp = -2147221005 Then
  getXMLDOM="Msxml2.DOMDocument.5.0"
End IF
Err.Clear
Set TmpObj = Nothing
Err = 0
end function

好了，进入后台看看，问题是不是解决了^_^。