ASP無(wú)組件上傳圖片源代碼 lt #39上傳方法，0＝無(wú)組件，1＝chinaaspupload dim upload_type upload_type=upload dim uploadsuc dim Forumupload dim ranNum dim uploadfiletype dim upload，file，formName，formPath，iCount，file。

文件上傳 提交后請(qǐng)稍等！ function setid str=#39#39if。

#39類實(shí)現(xiàn)代碼#39初始化類 Private Sub Class_Initialize isErr_ = 0 NoAllowExt=quotquot #39黑名單，可以在這里預(yù)設(shè)不可上傳的文件類型，以文件的后綴名來(lái)判斷，不分大小寫(xiě)，每個(gè)每綴名用號(hào)分開(kāi)，如果黑名單為空，則判斷白名單 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。

建議你使用別人做好的上傳類，像無(wú)懼上傳類稻香老農(nóng)的化境asp無(wú)組件上傳類等都可以，有很多，都挺好用的關(guān)于12的問(wèn)題可參照下面的解決辦法，因?yàn)槟愕拇a全寫(xiě)在一行，讀起來(lái)太麻煩，所以我給拆開(kāi)了代碼如下。

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建立上。

這簡(jiǎn)單，不用代碼了吧call savetofilemydata，pathresponsewrite quotalertquotquot上傳成功quotquotlocationhref=quotquotindexaspquotquotquotresponseendend if%lt！這些文件夾都在你的虛擬主機(jī)上，你先創(chuàng)建好，然后循環(huán)讀取出來(lái)你不會(huì)說(shuō)要用戶。