id intIdentity 主鍵值 img image 用來(lái)保存圖片數(shù)據(jù) 現(xiàn)在開(kāi)始正式編寫的純ASP代碼上傳部分了，首先，有一個(gè)提供給用戶的上傳界面，可以讓用戶選擇要上傳的圖片代碼如下 uploadhtm。

upfileasplt%OPTION EXPLICIT%lt%ServerScriptTimeOut=5000%lt！#include FILE=quotupload_5xsoftincquot文件上傳化境文件上傳！lt%dim upload，file，formName，formPath，iCountset upload=new upload_5xsoft #39#39建立上傳對(duì)象response。

upload_fileasp此頁(yè)面作為彈出窗口，代碼如下lt！#include file=quotUploadClassaspquot 文件上傳 lt Dim Admin_Flag，action Dim File_ext，UploadSize，Uploadpath Dim Filepath，F(xiàn)ilename。

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

quotnamequotvalue = tcreateTextRangetext 這里的 name 值為你的上傳文本框的name值名稱 windowclose lt ExtName = quotjpg，gif，png，txt，rar，zip，d。

p_MaxSize = 000000#390設(shè)定上傳圖片大小 p_FileType = quotjpggifquot p_SavePath = quotquot p_AutoSave = 0 strDate = replacecstrDate，quotquot，quotquot strDate = replacecstrDate，quotquot，quotquot lngTime = clngtime。

我需要最簡(jiǎn)單的ASP圖片上傳代碼，那位大蝦能幫下忙~~謝謝 我需要最簡(jiǎn)單的ASP圖片上傳代碼，那位大蝦能幫下忙~~謝謝 展開(kāi) #xE768 我來(lái)答 4個(gè)回答 #熱議# 已婚女性就應(yīng)該承擔(dān)家里大部分家務(wù)嗎。

加我Q，我能給你完整無(wú)組建上傳代碼， 答案flower。

uploadinc頁(yè)面 ltSCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfileStream Class upload dim Form，F(xiàn)ile Private Sub Class_Initialize dim iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iFormStart，iFormEnd，theFile dim。

Upasp代碼lt！#include file=quotUploadaspquot lt%ServerScriptTimeOut = 9999Dim PicSize， PicTypePicSize = 100 #39圖片大小，單位KPicType = quotgifjpgbmpquot #39圖片格式%ltHTMLltHEADltTITLE圖片上。

三個(gè)頁(yè)選擇頁(yè)，上傳頁(yè)subasp，調(diào)用的代碼頁(yè)uploadinc， 我自己就在用這個(gè)，LZ給分吧 1瀏覽上傳 subasp 執(zhí)行上傳并返回地址，同時(shí)保存文件名在sessionccc中 lt！#include FILE=quotuploadincquot lt% dim upload。

保存至數(shù)據(jù)庫(kù)只需要在上傳之后執(zhí)行寫入數(shù)據(jù)庫(kù)的操作，便是我代碼中注釋掉的那行#39ConnExecute quotInsert Into uploadfilename，filesize，update，cnstr values#39quotformPathFileFileNamequot#39，quot。

thisGetType， quotquot， quotalert#39上傳的圖片太大！#39quot else Image1ImageUrl = strBaseLocation + Temp1 + rightNameTextBox16Text = Image1ImageUrl。

End Function #39=== #39以上內(nèi)容若放在AASP頁(yè)面，在上傳頁(yè)面加上lt！#include file=quotAASPquot #39AASP獲取服務(wù)端相對(duì)圖片路徑，上傳圖片。

aspjpeg本身不能上傳圖片，可以使用無(wú)懼上傳等文件上傳類生成縮略圖的代碼如下 lt #39 Create instance of AspJpeg Set Jpeg = ServerCreateObjectquotPersitsJpegquot#39 Open source image JpegOpen quotc\path\myimagejpgquot#39。

ltaspImage ID=quotImage1quot runat=quotserverquot 后臺(tái)protected void Button1_Clickobject sender， EventArgs e FileUpload1SaveAsServerMapPathquotimgquot+FileUpload1FileName上傳圖片 Image1ImageUrl =。

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。