本帖旨在用最简单的代码来实现文件上传并把文件名存入数据库
"*******************************************************
"**程序由北京黑羽设计,如果引用并发布请注明出处********************
"**获取更多的内容,请点击http://www.brsky.net*******************
"**程序设计内容请不要QQ打扰,发邮件bj_heiyu@163.com或者网站留言****
"*******************************************************
******index.html--上传页面*******
enctype="multipart/form-data" name="form1" method="post">
文本内容
上传文件
******upload.asp--文件上传处理页面******
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
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")
"设置产品小图最大为10K
"任何时候都可以重设参数,这对于你上传不止一个图片很重要
request1.MaxSize=10240
"如果保存小图成功,系统生成目标文件名
"这里的"img"是指你的上传文件表单的名字
type="file">
if request1.Save("img",0) then
img=request1.SavePath&request1.Form("img")
end if
"上传内容完成,我们并得到了文本内容:txt;上传文件的文件名(带路径):pic
"关闭对象request1
set request1=nothing
"上传内容存入数据库
sql="insert into [txt]([txt],img)
values(""&txt&"",""&img&"")"
conn.execute(sql)
"防止重复提交,把网页转入主页response.redirect("index.html")
%>
文章引用自:http://www.brsky.net/web/index.asp?id=37