ASP无组件上传图片源代码 lt #39上传方法，0＝无组件，1＝chinaaspupload dim upload_type upload_type=upload dim uploadsuc dim Forumupload dim ranNum dim uploadfiletype dim upload，file，formName，formPath，iCount，file。

文件上传 提交后请稍等！ function setid str=#39#39if。

#39类实现代码#39初始化类 Private Sub Class_Initialize isErr_ = 0 NoAllowExt=quotquot #39黑名单，可以在这里预设不可上传的文件类型，以文件的后缀名来判断，不分大小写，每个每缀名用号分开，如果黑名单为空，则判断白名单 NoAllowExt=。

#39如果是文件 if InStr 45，sInfo，quotfilename=quotquotquot，1 0 then set theFile=new FileInfo #39取得文件名 iFindStart = InStriFindEnd，sInfo，quotfilename=quotquotquot，1+10 iFindEnd = InStriFindStart，sInfo，quotquotquot，1。

建议你使用别人做好的上传类，像无惧上传类稻香老农的化境asp无组件上传类等都可以，有很多，都挺好用的关于12的问题可参照下面的解决办法，因为你的代码全写在一行，读起来太麻烦，所以我给拆开了代码如下。

lt%OPTION EXPLICIT% lt%ServerScriptTimeOut=5000% lt！#include FILE=quotupload_5xsoftincquot 文件上传 化境文件上传！ lt dim upload，file，formName，formPath，iCount set upload=new upload_5xsoft #39#39建立上。

这简单，不用代码了吧call savetofilemydata，pathresponsewrite quotalertquotquot上传成功quotquotlocationhref=quotquotindexaspquotquotquotresponseendend if%lt！这些文件夹都在你的虚拟主机上，你先创建好，然后循环读取出来你不会说要用户。