求上传文件的纯ASP代码！！

来源：百度知道 编辑：UC知道 时间：2024/05/15 16:23:33
想要一个上传文件的纯ASP的代码，要可以指定保存路径的，请在能实现功能的前提下尽量简化！！
不要拿什么网上的那些无组件的东西来复制粘贴，一定要尽量简单啊！！
也不要是网上的那个什么6行代码搞定的那个，那个是可以上传，但无法指定路径！！
2楼给的代码，保存路径是哪啊？
好象上传到叫UploadFiles的文件夹，但这个文件夹在哪啊？

不好意思，还麻烦你，但是我试了一下，还是没有生成那个UploadFiles文件夹，页面执行没有错误，但不知道是不是有确实上传！！
麻烦加下我QQ好吗？？
119804205！！谢谢你了

你检查看看是不是哪里弄错了，我测试过，程序没问题的。
=====================================================
FilePath="UploadFiles"
这样设置就是上传到程序所在目录的子目录UploadFiles下面了。
这个只要用相对路径就可以了，不用管它，程序会自动创建。
=====================================================
这个我自己在用的，两个程序（也可以把两个放一起），还算简单，你自己稍微修改一下设置就可以用：
---upload.asp---
<%
Dim Upfile_Kings_Stream
Class Upload_Kings
Dim Form,File
Private Sub Class_Initialize
Dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
Dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Set Form=CreateObject("Scripting.Dictionary")
Set File=CreateObject("Scripting.Dictionary")
Set Upfile_Kings_Stream=CreateObject("Adodb.Stream")
Upfile_Kings_Stream.Mode=3
Upfile_Kings_Stream.Type=1
Upfile_Kings_Stream.Open
Upfile_Kings_Stream.Write Request.BinaryRead(Request.TotalBytes)