官方首页 | 无图版 | BBS首页
PJBlog3 2.8.4.133 新版发布 下载|升级(2008.7.13) 大话PJ3 | PJ3评测反馈 | PJ3发展建议 暑期清凉活动:PJ纪念版T-shirt设计大赛 PJ3内测团队主创人员身份,性格,特点吐血大曝光
PJBlog技术支持论坛使用问题总索引 PJ-Blog 3 斑竹日志 PJBlog域名,主机,服务器使用经验分享 Z-Blog,Wordpress,Bo-Blog转换到PJBlog
发新话题
打印

[已解决] 无法使用插件管理功能,请与服务商联系和只能手动输入Skin的文件夹名称问题的解决方法

本主题由 无心 于 2008-3-25 10:08 关闭

无法使用插件管理功能,请与服务商联系和只能手动输入Skin的文件夹名称问题的解决方法

------------------------------------------------------------------------------------------------------------------------------------
你的系统不支持 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

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

TOP

好,谢谢分享。。

TOP

谢谢楼主分享.楼主辛苦了.

TOP

发新话题