我想做上传文件,把上传文件的名字跟路径分别存到数据库里
下面是上传页面的代码
<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<!--#include FILE="conn.asp"-->
<%
dim request1,txt,img,sql
'建立上传对象
'其中对象request1你可定义成任意字符串,只是方便引用,因为传递的参数我们习惯用request来接收,所以我们定义成request1,注意,定义成request是不行的
set request1=New UpLoadClass
'设置为手动保存模式
request1.AutoSave=2
'设置服务器文件保存路径
'这里我们是把上传的图片保存在uploadfile这个子文件夹里的
request1.SavePath="uploadfile/"
'打开对象
request1.open()
'获得照片标题
'这里的.form("pic")是指你的表单文本框name="txt"
txt=request1.Form("txt")
'设置产品图片最大为100K
'任何时候都可以重设参数,这对于你上传不止一个图片很重要
request1.MaxSize=102400
dim intTemp,imgname,txtname
'requet1.fileitem是上传文件的集合,从1开始
for intTemp=1 to Ubound(request1.FileItem)
'imgname是指你的上传文件表单的名字
imgname=request1.fileitem(inttemp)
'request1.form()是表单的值,request1.formitem()是表单的名字
img=request1.Form(request1.formitem(inttemp))
'如果保存小图成功,系统生成目标文件名
if request1.Save(imgname,0) then
txt=request1.SavePath&request1.Form(imgname)
end if
'上传内容存入数据库
sql="insert into [txt]([txt],img) values('"&txt&"','"&img&"')"
conn.execute(sql)
next
'上传内容完成,我们并得到了文本内容:txt;上传文件的文件名(带路径):pic
'关闭对象request1
conn.close()
set conn=nothing
set request1=nothing
'防止重复提交,把网页转入主页
response.redirect("index.html")
%>
下面是系统提示的错误
技术信息(用于支持人员)
错误类型:
Microsoft JET Database Engine (0x80004005)
字段 'txt.txt' 不能是零长度的字符串。
/上传/upload/upload.asp, 第 49 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页:
POST 251249 ??? /上传/upload/upload.asp
POST Data:
错误 '80020009'
发生意外。
/iisHelp/common/500-100.asp,行 219