Question

asp 用Server.CreateObject("ADODB.Stream") 生成文件不成功

LogID=111
Temp ="静态文章源码"

'下面两行是我填加的代码
Dim postmulu : postmulu = 0 '修改，后台重新发布时生成目录名，每1000个文件建一个新目录
If LogID >= 1000 Then postmulu = Int(LogID/1000) '保留正整数

SaveToFile(Temp, "post-1/" &postmulu&"/" & LogID & ".asp")

'下面是原来pj3程序的保存函数，我没有修改
Function SaveToFile(ByVal strBody, ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = strBody
On Error Resume Next
.SaveToFile Server.MapPath(File), 2
If Err Then
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
Err.Clear
Exit Function
End If
.Close
End With
RText = Array(0, "保存文件成功!")
SaveToFile = RText
Set objStream = Nothing
End Function

我就是增加一个目录变量“postmulu”，，我先在在post-1文件夹里新建了0-9个空文件夹，我在后台发布了为什么保存不成功，每个文件夹里都是空的？

去掉我添加的部分就正常生成到post-1根目录里了。为什么我增加一个目录就生成不了了呢

Answer 1

感觉你LogID是“111”而不是111。
If LogID >= 1000 Then postmulu = Int(LogID/1000) '保留正整数
改为If LogID >= 1000 Then postmulu = Int(cint(LogID)/1000) 试试。