UC知道求asp 无组件文件上传和读取代码
来源：百度知道 编辑：UC知道 时间：2024/05/24 10:32:22
最好读取时能把图片转换成MIN行谢谢!
不懂的别抄，抄的别来，来了扣分
最好能上传到服务器上文件夹里!
如果不存在就创建文件夹!
谢谢!
最好能解释一下代码!
需要ASP无组件上传原理及解释
可以是简单的几行代码。但要包括获取文件信息，读取后缀名，读取文件名。每一步都要注释。
<br>再加一句别用抄的。除非能符合我的要求～
不懂的别抄，抄的别来，来了扣分
最好能上传到服务器上文件夹里!
如果不存在就创建文件夹!
谢谢!
最好能解释一下代码!
需要ASP无组件上传原理及解释
可以是简单的几行代码。但要包括获取文件信息，读取后缀名，读取文件名。每一步都要注释。
<br>再加一句别用抄的。除非能符合我的要求～
呃！！做了多年滴开发，终于有人说偶不懂了！唉！！小小的认真一下吧！！重新写了！你自己将就看一下吧！！上传类我用的是“无惧上传”，自己上网找找吧！网上很多的，我就不转过来了！
以下是程序，能看懂多少是多少，看你滴悟性了。。。。
-------------------------------------------------
dim upload,file
set upload=new UpFile_Class ''建立上传对象
upload.GetDate (2048*1024) '取得上传数据,限大小2M
if upload.err > 0 then
select case upload.err
case 1
Response.Write "请先选择你要上传的文件 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
case 2
Response.Write "文件大小超过了限制 2048K [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
end select
else
formPath="UploadFile/" '上传目录
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
fileExt=lcase(file.FileExt) '取文件后缀名
'付值变量
randomize
ranNum=int(90000*rnd)+10000 '生成随机数
F_Type=CheckFiletype(fileEXT)
file_n