asp實(shí)現(xiàn)上傳功能的源碼演示(簡(jiǎn)單易懂)_第1頁
asp實(shí)現(xiàn)上傳功能的源碼演示(簡(jiǎn)單易懂)_第2頁
asp實(shí)現(xiàn)上傳功能的源碼演示(簡(jiǎn)單易懂)_第3頁
asp實(shí)現(xiàn)上傳功能的源碼演示(簡(jiǎn)單易懂)_第4頁
asp實(shí)現(xiàn)上傳功能的源碼演示(簡(jiǎn)單易懂)_第5頁
已閱讀5頁，還剩3頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、asp 無組件上傳圖片的源碼分析及下載要實(shí)現(xiàn)圖片的上傳功能其實(shí)非常簡(jiǎn)單，只需要四個(gè)文件與一個(gè)文件夾即可實(shí)現(xiàn)。第一個(gè)文件： Upload.asp 這個(gè)文件的源代碼如下：<form method="POST" name="myform" target="_self"><input type="text" id="DefaultPic Url"><iframe style="top:2px" ID="UploadFiles" src

2、="upload_Photo.asp?PhotoUrlID=1" frameborder=0 scrolling=no width="300" height="325"></iframe></form>說明：這個(gè)文件將引用一個(gè)名為 upload_Photo.asp 的文件也就是下面要講的第二個(gè)文件作為 框架，同時(shí)這里傳遞一個(gè) PhotoUrlID 參數(shù)給 pload_Photo.asp 這個(gè)文件的 form1 表單中的名 為 PhotoUrlID 的隱藏域名，其值為 1第二個(gè)文件： Upload_Phot

3、o.asp ，這個(gè)文件的源代碼如下：<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css"><!-BODYBACKGROUND-COLOR: #E1F4EE;font-size:9pt.tx1 height: 20px;font-size: 9pt; border: 1px solid; border-color: #000000;

4、color: #0000FF-></style><SCRIPT language=javascript>function check()var strFileName=document.form1.FileName.value;if (strFileName="")alert(" 請(qǐng)選擇要上傳的文件 "); document.form1.FileName.focus();return false;</SCRIPT></head><body leftmargin="0" top

5、margin="0"><form action="Upfile_Photo.asp" method="post" name="form1" onSubmit="return check()" enctype="multipart/form-data"><input name="FileName" type="FILE" class="tx1" size="30">&l

6、t;input type="submit" name="Submit" value=" 上 傳 " style="border:1px double rgb(88,88,88);font:9pt"><input name="PhotoUrlID" type="hidden" id="PhotoUrlID" value="<%=Clng(trim(request("PhotoUrlID")%>"

7、></form></body></html>說明：這個(gè)是作為第一個(gè)文件 Upload.asp 的框架文件，注意這里的 FileName 的文本框是用 于接受上傳成功之后圖片的地址第三個(gè)文件： Upfile_Photo.asp ，其源代碼如下：<!-#include file="upfile_class.asp"-><%const upload_type=0 ' 上傳方法： 0= 無 懼無組 件上傳 類， 1=FSO 上 傳 2=lyfupload ， 3=aspupload，4=chinaaspupload

8、dim upload,oFile,formName,SavePath,filename,fileExt,oFileSizedim EnableUploaddim arrUpFileTypedim ranNumdim msg,FoundErrdim PhotoUrlIDmsg=""FoundErr=false EnableUpload=false%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312&quo

9、t;><style type="text/css"><!-BODY BACKGROUND-COLOR: #E1F4EE;font-size:9pt.tx1 height: 20px;font-size: 9pt;border: 1px solid;border-color: #000000;color: #0000FF-></style></head><body leftmargin="2" topmargin="5" marginwidth="0" ma

10、rginheight="0" ><%if EnableUploadFile="No" thenresponse.write " 系統(tǒng)未開放文件上傳功能 "elseselect case upload_typecase 0call upload_0() ' 使用化境無組件上傳類case else'response.write " 本系統(tǒng)未開放插件功能 "'response.endend selectend if%></body></html><%

11、sub upload_0()'使用化境無組件上傳類set upload=new upfile_class '' 建立上傳對(duì)象 upload.GetData(104857600) ' 取得上傳數(shù)據(jù) ,限制最大上傳 100M if upload.err > 0 then '如果出錯(cuò)select case upload.errcase 1response.write " 請(qǐng)先選擇你要上傳的文件！ "200k ) "case 2response.write " 你上傳的文件總大小超出了最大限制( end select

12、response.endend ifPhotoUrlID=Clng(trim(upload.form("PhotoUrlID")if PhotoUrlID>0 thenSavePath = "UploadFiles"'存放上傳文件的目錄elseSavePath = "UploadFiles"'存放上傳文件的目錄end ifif right(SavePath,1)<>"/" then SavePath=SavePath&"/" ' 在目錄后加 (/

13、)for each formName in upload.file ' 列出所有上傳了的文件set ofile=upload.file(formName) ' 生成一個(gè)文件對(duì)象 oFileSize=ofile.filesizeif oFileSize<100 thenmsg=" 請(qǐng)先選擇你要上傳的文件！ "FoundErr=Trueelseselect case PhotoUrlIDcase 0if oFileSize>(MaxFileSize*1024) thenmsg=" 文件大小超過了限制，最大只能上傳" & C

14、Str(MaxFileSize) & "K 的文件！"FoundErr=trueend ifcase 1if oFileSize>(10000*1024) thenmsg=" 文件大小超過了限制，最大只能上傳10M 的文件！ "FoundErr=trueend ifend selectend if fileExt=lcase(ofile.FileExt)arrUpFileType=split("gif|jpg|bmp|png|swf|doc|rar|xls","|")' 如需添加其它類型的文檔

15、請(qǐng) 在這里添加文檔后綴名for i=0 to ubound(arrUpFileType)if fileEXT=trim(arrUpFileType(i) thenEnableUpload=trueexit forend ifnextif fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" thenEnableUpload=falseend ifif EnableUpload=false thenmsg=" 這種文件類型不允許上傳！ nn 只允許上 傳這幾種文件類型： "

16、 & "gif|jpg|bmp|png|swf|doc|rar|xls"FoundErr=trueend if strJS="<SCRIPT language=javascript>" & vbcrlf if FoundErr<>true thenrandomize ranNum=int(900*rnd)+100filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second (n

17、ow)&ranNum&"."&fileExtofile.SaveToFile Server.mappath(FileName) ' 保存文件response.write " 文件上傳成功！文件大小為： " & cstr(round(oFileSize/1024) & "K"select case PhotoUrlIDcase 0 strJS=strJS & "parent.document.myform.PhotoSize1.value='" &

18、; cstr(round(oFileSize/1024) & "'" & vbcrlfcase 1 strJS=strJS & "parent.document.myform.DefaultPicUrl.value='" & fileName & "'" & vbcrlfend selectelsestrJS=strJS & "alert('" & msg & "');" &

19、vbcrlfstrJS=strJS & "history.go(-1);" & vbcrlfend ifstrJS=strJS & "</script>" & vbcrlfresponse.write strJSset file=nothingnextset upload=nothingend sub%>第四個(gè)文件 upfile_class.asp, 源代碼如下<%Dim oUpFileStreamI'文件上傳類Class UpFile_ClassDim Form,File,V ersion

20、,ErrPrivate Sub Class_InitializeVersion = "無懼上傳類 Version V1.2"Err = -1End SubPrivate Sub Class_Terminate'清除變量及對(duì)像If Err < 0 ThenForm.RemoveAllSet Form = NothingFile.RemoveAllSet File = Nothing oUpFileStream.Close Set oUpFileStream = NothingEnd IfEnd SubPublic Sub GetData (MaxSize)

21、9;定義變量Dim RequestBinData,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo Dim iFileSize,sFilePath,sFileType,sFormV alue,sFileNameDim iFindStart,iFindEndDim iFormStart,iFormEnd,sFormName'代碼開始If Request.TotalBytes < 1 Then ' 如果沒有數(shù)據(jù)上傳Err = 1Exit SubEnd IfIf MaxSize > 0 Then

22、 ' 如果限制大小If Request.TotalBytes > MaxSize ThenErr = 2 '如果上傳的數(shù)據(jù)超出限制Exit SubEnd IfEnd IfSet Form = Server.CreateObject ("Scripting.Dictionary") Form.CompareMode = 1Set File = Server.CreateObject ("Scripting.Dictionary") File.CompareMode = 1Set tStream = Server.CreateObjec

23、t ("ADODB.Stream")Set oUpFileStream = Server.CreateObject ("ADODB.Stream") oUpFileStream.Type = 1 oUpFileStream.Mode = 3 oUpFileStream.Open oUpFileStream.Write Request.BinaryRead (Request.TotalBytes) oUpFileStream.Position = 0RequestBinData = oUpFileStream.Read iFormEnd = oUpFile

24、Stream.Size bCrLf = ChrB (13) & ChrB (10) '取得每個(gè)項(xiàng)目之間的分隔符 sSpace = MidB (RequestBinData,1, InStrB (1,RequestBinData,bCrLf)-1) iStart = LenB (sSpace) iFormStart = iStart+2'分解項(xiàng)目DoiInfoEnd = InStrB (iFormStart,RequestBinData,bCrLf & bCrLf)+3 tStream.Type = 1 tStream.Mode = 3 tStream.Open

25、oUpFileStream.Position = iFormStart oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tStream.Type = 2 tStream.CharSet = "gb2312" sInfo = tStream.ReadText'取得表單項(xiàng)目名稱iFormStart = InStrB (iInfoEnd,RequestBinData,sSpace)-1 iFindStart = InStr (22,sInfo,"name="&q

26、uot;",1)+6 iFindEnd = InStr (iFindStart,sInfo,"""",1) sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) '如果是文件If InStr (45,sInfo,"filename=""",1) > 0 ThenSet oFileInfo = new FileInfo_Class'取得文件屬性iFindStart = InStr (iFindEnd,sInfo,"fil

27、ename=""",1)+10 iFindEnd = InStr (iFindStart,sInfo,"""",1) sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "")+1) oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "") oFile

28、Info.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1) iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14 iFindEnd = InStr (iFindStart,sInfo,vbCr) oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart) oFileInfo.FileStart = iInfoEnd oFileInfo.FileSize = iFormS

29、tart -iInfoEnd -2 oFileInfo.FormName = sFormName file.add sFormName,oFileInfoelse'如果是表單項(xiàng)目 tStream.Close tStream.Type = 1 tStream.Mode = 3 tStream.Open oUpFileStream.Position = iInfoEnd oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2 tStream.Position = 0 tStream.Type = 2tStream.CharSet = "

30、;gb2312" sFormValue = tStream.ReadTextIf Form.Exists (sFormName) ThenForm (sFormName) = Form (sFormName) & ", " & sFormV alue elseform.Add sFormName,sFormV alueEnd IfEnd IftStream.Close iFormStart = iFormStart+iStart+2 '如果到文件尾了就退出Loop Until (iFormStart+2) >= iFormEnd RequestBinData = ""Set tStream = No

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論