GD的上传快把我折腾疯了，哪位朋友有可用的代码啊

lenv

如题，搞了一下午了

Set Upload = Server.CreateObject("Persits.Upload")
Upload.SaveVirtual("upload")

这样是可以的
但我没法判断文件类型和大小了啊  还有没办法重命名啊

[ 本帖最后由 lenv 于 2010-7-17 09:13 PM 编辑 ]

lenv

注释的部分一去掉就500异常

郁闷的一塌糊涂

zstxt1989

这是ASP么？帮不了你。

建议查找相应的上传程序范例。

lenv

是ASP的啊  哪位朋友有啊 共享一份 感谢

add.c

楼主自行解决
方法

1. dim fileExt,fileName,formPath,success,allowExt
   
2. '存储路径
   
3. formPath="pic/"
   
4. '上传成功个数
   
5. success = 0
   
6. '允许上传的扩展名
   
7. allowExt = ".jpg,.gif,.png"
   
8. 
   
9. Set Upload = Server.CreateObject("Persits.Upload")
   
10. Upload.OverwriteFiles = True  '允许覆盖同名文件
    
11. Upload.Save   '上传至服务器
    
12. 
    
13. for each file in Upload.Files        
    
14.         if file.Size>0 then                                          
    
15.             if file.Size>10000000 then
    
16.                         response.write "<font size=2>图片大小超小了限制[<a href=# onclick=history.go(-1)>重新上传</a>]</font>"
    
17.                         response.end
    
18.             end if
    
19.             
    
20.           fileExt=file.Ext        '文件扩展名
    
21.          
    
22.           if inStr(1,allowExt,fileExt,1)=0 then'以文本格式查找，忽略大小写
    
23.                    response.write "<font size=2>文件格式限制[<a href=# onclick=history.go(-1)>请重新上传</a>]</font>"
    
24.                    response.end
    
25.           end if
    
26.          
    
27.           '重命名文件:年月日时分秒
    
28.                 filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&fileExt
    
29.                 file.SaveAsVirtual formPath&filename
    
30.                 success = success + 1
    
31.         end if
    
32. Next
    
33. 
    
34. 'Upload.SaveVirtual("upload")
    
35. set Upload = nothing
    
36. response.write "上传成功【"&success&"】个文件！ <a href=# onclick=history.go(-1)>返回</a></span>"
    
37. %>

复制代码

地址http://bbs.idcspy.com/thread-108331-1-1.html

[ 本帖最后由 add.c 于 2010-7-18 09:54 AM 编辑 ]