我想在保存pdf文件夹/ FileName.pdf时想要保存表单。以下代码仅保存FileName pdf
Case "new"
on error resume next
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 1000000, True
Upload.Codepage = 1254
Upload.OverwriteFiles = False
Upload.Save
Set File1 = Upload.Files("pdf")
Path = server.mappath("../PDF-N/")
if File1.Ext = ".pdf" or File1.Ext=".pdf" or File1.Ext=".PDF" then
File1.SaveAs Path & "\"& File1.FileName
pdf = File1.FileName
end if
metin = tirnak(Upload.form("metin"))
sql= "Insert into tblHaber(metin,pdf) values('" & metin & "', '"& pdf & "')"
conn.execute(sql)
答案 0 :(得分:0)
尝试删除该行: -
on error resume next
目前可能会发生一些不好的事情,但你不会被告知。通常On Error Resume Next
在代码体中是一件坏事。
这不会解决您的问题,但可能会提供一些有关实际情况的见解。