新云生成html为0的问题..... 是修改哪一个文件

kushao

新云生成html为0的问题.....　是修改哪一个文件？

在论坛搜索了一下，还是不懂，不详细。。。

是修改哪一个文件就可以啊？？　修改成什么啊。

mlmm

没遇到过....帮你顶下......

kushao

问题解决了.原来只需要改动一个地方即可:fs.CreateTextFile(server.MapPath(filepath),true,UTF-8)

这样writeline()方法就能写入godaddy的空间了.
==================================================按上面的搜索到这里

        Public Function CreatedTextFile(ByVal FileName,ByVal body)
                On Error Resume Next
                Dim f,sName
                FileName = Replace(Replace(FileName, "/", "\"), "\\", "\")
                If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
                sName=Mid(FileName,InStrRev(FileName,"\")+1,Len(FileName))
                If InStr(sName,".")=0 Then FileName = FileName &"\index.html"
                If MainSetting(7)="0" Then
                        Set f = fso.CreateTextFile(FileName,True, False)　
[我把它改成fso.CreateTextFile(server.MapPath(filepath),true,GB2312)]　也还是不行啊
                        f.Write body
                        f.Close
                        Set f = Nothing
                Else
                        If MainSetting(7)="2" Then
                                NewAspStream.charset="UTF-8"
                        ElseIf MainSetting(7)="3" Then
                                NewAspStream.charset="BIG5"
                        Else
                                NewAspStream.charset="GB2312"
                        End If
                        NewAspStream.Type = 2'设置内容为文本
                        NewAspStream.Mode = 3'设置为可读可写
                        NewAspStream.open()
                        NewAspStream.WriteText(body)
                        NewAspStream.SaveToFile FileName,2
                        NewAspStream.Flush
                        NewAspStream.close()
                End If
                If Err.Number <> 0 Then Err.Clear

kushao

真是苦死我了，我的站啊，，　

谁成功了的　分享一下方法啊。

add.c

改为
fso.CreateTextFile(server.MapPath(filepath),,true)
试试
注意中间两个,,

kushao

终于解决了，哎！！！　分享一下方法。　这个真是困扰太多用新云朋友了

方法：修改inc目录下的　cls_main.asp　文件　搜索到：fso.CreateTextFile(FileName,True, False)　[注：　这个是4.0的版本]　旧版我想应该也一样吧。　就是add.c版主所说的　加两个,,符号就行了

改成：fso.CreateTextFile(FileName,,true)  就可以生成了，而且不是空白的了。。。

主要方法是多加两个豆号, 把后面的, False去掉。

感谢add.c版主的提示帮助。

lwbing

感谢 我去试试3。1 的 呵呵 实在不行 就升级4了--！

chasgone

方法确实可行，只是生成的页面存在子目录的问题，哎

cellhc

我找不到fso.CreateTextFile(FileName,True, False)啊

lwbo1987

inc目录下的　cls_main.asp　，没有这个文件吗？