Microsoft VBScript运行时错误' 800a0034'在尝试添加图像时

时间:2016-02-27 14:43:11

标签: vbscript asp-classic

我不是编码员,正在开发一个旧的asp网站,并且有一个页面可以将图像上传到给定的页面(从下拉列表中),但是当我尝试将图像添加到相应的页面时,我得到了这个错误,我猜从一开始就一直存在。

Microsoft VBScript运行时错误' 800a0034' 文件名或编号错误 /path-to-file/foto.asp,第105行

相关代码是

'Create and Write to a File
Randomize()
strChiave = Cstr(Right(DatePart("yyyy", Date()),2))
strChiave = strChiave + Cstr(DatePart("y", Date()))
strChiave = strChiave + Replace(Time(),".","")
strChiave = strChiave + Right(Session.SessionID,4)
strChiave = strChiave + CSTR(INT(RND()*1000))
strImmagine = strChiave + Right(filename,4)
Set MyFile = ScriptObject.CreateTextFile(Application("path_public") & "/" & strImmagine)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close

第105行是

Set MyFile = ScriptObject.CreateTextFile(Application("path_public") & "/" & strImmagine)

谢谢

1 个答案:

答案 0 :(得分:1)

Time()方法返回具有以下结构的时间:HH:mm其中" HH"是小时," mm"纪要。如您所见,它包含一个冒号字符,而不是一个点,冒号在文件路径中无效。

在代码中更改此行:

strChiave = strChiave + Replace(Time(),".","")

改为:

strChiave = strChiave + Replace(Time(),":","")