科讯kesion cms 问题：解决Dreamweaver编辑科汛代码死机问题

这个问题是自从我所了解的科讯5.0版，一直到目前的最新版7.4版这个问题一直存在，用Dreamweaver8打开科讯的任何asp源码，在代码视图下会导致dw8死机，动不了。

在论坛里有人提出过一个解决办法:打开dw首选参数（Ctrl+U），在分类中找到“不可见元素”，然后在右边最下边把“服务器端包括：显示所包含文件的内容”的勾去掉就行了。的确也是个办法，但是编辑其它asp文件的时候又不方便了又要设计回来，很麻烦。

事实上这个问题的确是由KS_Cls/Kesion.CommonCls.asp这个文件引起的。

具体的是由下面这段代码引起的。

  Function SaveBeyondFile(LocalFileName,RemoteFileUrl)
     'On Error Resume Next
  Dim SaveRemoteFile:SaveRemoteFile=True
  dim Ads,Retrieval,GetRemoteData
  Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
   .Open "Get", RemoteFileUrl, False, "", ""
   .Send
   If .Readystate<>4 then
    SaveRemoteFile=False
    Exit Function
   End If
   GetRemoteData = .ResponseBody
  End With
  Set Retrieval = Nothing
  Set Ads = Server.CreateObject("Adodb.Stream")
  With Ads
   .Type = 1
   .Open
   .Write GetRemoteData
   .SaveToFile server.MapPath(LocalFileName),2
   .Cancel()
   .close()
  End With
  Set Ads=nothing
  SaveBeyondFile=SaveRemoteFile
  IF Setting(174)="1" Then
  '加水印
  Dim T:Set T=New Thumb
  call T.AddWaterMark(LocalFileName)
  Set T=Nothing
  End If
end Function

再进一步分析，是由这段代码中的  .close()引起的。

其实你单独把这段放出来放在另一个文件里编辑又是正常的。为什么在这个文件里就会导致dw8假死，其原因就不得而知了。

知道了问题所在，解决的办法就有很多了。

我的办法是用记事本打开，只要把上面就段代码中的

.close()

改写成

execute(".close()")

问题就解决啦！！！