Godaddy的Windows空间ASP上传程序

lenv

初次使用Godaddy的主机，使用Asp上传，结果一直出错。
今天搞了一下午，郁闷的一塌糊涂，后来找到了Godaddy使用的AspUpload3.0组件的说明文档，编写了这段上传的程序
希望对有这个需要的朋友有所帮助

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. %>

复制代码

[ 本帖最后由 lenv 于 2010-7-18 12:34 AM 编辑 ]

aixue

我的ASP企业网站不能上传图片，是不是可以用你这个代码？是不是这个代码要覆盖原有的上传页面的代码？

add.c

感谢楼主分享

lenv

原帖由 aixue 于 2010-7-18 01:42 AM 发表
我的ASP企业网站不能上传图片，是不是可以用你这个代码？是不是这个代码要覆盖原有的上传页面的代码？

建议不要覆盖，最好独立建一个upload.asp文件，把上面的代码COPY进去，然后把原来的表单提交路径修改为 upload.asp

tianping88

谢谢分享呀，我用的.net的，上传没有什么问题。