新微赢技术网

标题: 谁知道无惧无组件上传的使用方法？？？（急用） [打印本页]

作者: 勇敢的心 时间: 2009-12-27 06:55
标题: 谁知道无惧无组件上传的使用方法？？？（急用）
不好意思，对于无惧无组件上传，我看了好长时间了，可是因为自己能力有限，还不是很了解，希望有明白的高手帮忙解决，非常感谢！
<form name="form1" action="save.asp" method="post" enctype="multipart/form-data">
标题：<input type="text" name="title" id="title">
<br>
图片：<input type="file" name="picture" id="picture">
<br>
<input type="submit" name="submit" value="提交"> 
<input type="reset" name="reset" value="重置">
</form>
像上面的代码，如果在上传文件的同时，还要有相关的标题（title）上传，如何用upfile_class类将title传到save.asp网页中呢，应该用什么语句？？？

作者: ■■■■■■ 时间: 2009-12-27 06:55
使用示例
上传文件的表单要加入enctype="multipart/form-data"属性，即
<form name="form1" method="post" action="" enctype="multipart/form-data">
<input type="text" value="1" name="name">
<input type=file name="img">
<input type=submit name="submit" value="提交">
</form>

在执行上传的ASP页
'包含类文件

dim upfile
dim SaveFilename
'建立上传对象
set upfile=new upfile_class
'取得上传数据,限制最大上传10M 计算方法为 10240000/1000000=10.24M
upfile.GetData (10240000)
'判决是否出错
if upfile.isErr then
select case upfile.err
case 1
Response.Write "你没有上传数据呀???是不是搞错了??"
case 2
Response.Write "你上传的文件超出我们的限制,最大10M"
end select
else
'执行保存文件代码
upfile.SaveToFile "img","c:\"&upfile.file("img").filename
'执行自动保存文件代码，SaveFilename为保存的文件名
SaveFilename=upfile.AutoSave("img","c:\")
'销毁对像
set upfile=nothing
end if

自己好好看吧

作者: ﹎想埝祢⿰ 时间: 2009-12-27 06:56
呵呵，成功了，非常感谢！

作者: 爽口爽心 时间: 2009-12-27 06:56
Dim title
title = upfile.Form("title")

作者: 唏唏鉿鉿HJP 时间: 2009-12-27 06:56
这个我知道，我是想问如果上传到save.asp中的不只是图片，还有 title ，title是用来对上传的图片进行相关的说明，那该如何操作呢？？？

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)