ASP怎样无组件上传文件到指定文件夹，并且将路径写入数据库？？如题 谢谢了

ASP怎样无组件上传文件到指定文件夹，并且将路径写入数据库？？ 哪个有源码的发到我的QQEmail好吗？！谢谢。。。

<% Dim Upload,successful '=============================================================================== set Upload=new AnUpload '创建类实例 Upload.SingleSize=1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制 Upload.MaxSize=4096*1024 '设置最大上传限制,按字节计；默认为不限制 Upload.Exe="rar|jpg|bmp|gif|doc|xls|ppt|txt" '设置合法扩展名,以|分割,忽略大小写 Upload.GetData() '获取并保存数据,必须调用本方法 '=============================================================================== if Upload.Err>0 then '判断错误号,如果myupload.Err<=0表示正常 response.write Upload.Description '如果出现错误,获取错误描述 else response.Write "表单text1的值为: " & Upload.Forms("text1") & "
" if Upload.forms("file1")<>"" then '这里判断你file1是否选择了文件 path=server.mappath("files") '文件保存路径(这里是files文件夹) set tempCls=Upload.files("file1") successful=tempCls.SaveToFile(path,0) '以时间+随机数字为文件名保存 'successful=tempCls.SaveToFile(path,1) '如果想以原文件名保存,请使用本句 if successful then response.write tempCls.FileName & "上传完毕,大小为" & Upload.getsize(tempCls.Size) & ";
本地路径" & Upload.forms("file1") & "!
" Response.Redirect "InsertDatabase.asp?FileName="&Upload.Forms("text1")&"&FilePath="&tempCls.FileName else response.write "上传失败" end if set tempCls=nothing end if end if set Upload=nothing '销毁类实例 %>
采纳哦

我有，可以限制上传文件格式，可是删除文件的数据库信息，同时删掉相应的物理文件。可以保存文件的上传格式，文件大小，文件名等等相关信息到数据库保存。 不过……明天要考试，有空再发给你哦，记住哦，肯定给你的，因为是运用在我的网站里面的，我网站代码很多，你研究也很费劲，对不？所以我要有时间再整理出来你要的代码，再发给你，对不？ 再看看别人怎么说的。