|
本地测试都不行,何谈网上呀?版主出来帮忙把问题解决一下
我估计还是CreateHtml.asp
当中的问题
下面是生肆函数代码
Public Function LeftHtml() '生成左边的树形菜单函数 DIM objXMLHTTP,xml,PathFileName call sysinfo Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET",""&Application(BBSInfo&"sysinfo")(98,0)&Application(BBSInfo&"sysinfo")(5,0)&"/left.asp", False xml.Send if xml.readyState=4 then DIM fileStreamObj,textStream,Htmlnl Htmlnl=bytes2BSTR(xml.responsebody) Const ForReading = 1 Const Forwriting = 2 Const ForAppending = 8 PathFileName = Server.MapPath("../") PathFileName = PathFileName+"/left.html" if writetype=0 then SET fileStreamObj = CreateObject(Application(BBSInfo&"sysinfo")(100,0)) fileStreamObj.CreateTextFile(PathFileName) set textStream = fileStreamObj.OpenTextFile(PathFileName,ForWriting,False) textStream.Write(Htmlnl) textStream.Close() else dim stm set stm=server.CreateObject("adodb.stream") stm.Type=2 '文本模式读取 stm.mode=3 stm.charset=CharType stm.open stm.WriteText Htmlnl stm.SaveToFile PathFileName,2 stm.flush stm.Close set stm=nothing end if LeftHtml=true else LeftHtml=false end if End Function
|