asp实现上传功能的源码演示(简单易懂)_第1页
asp实现上传功能的源码演示(简单易懂)_第2页
asp实现上传功能的源码演示(简单易懂)_第3页
asp实现上传功能的源码演示(简单易懂)_第4页
asp实现上传功能的源码演示(简单易懂)_第5页
已阅读5页，还剩3页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、asp 无组件上传图片的源码分析及下载要实现图片的上传功能其实非常简单，只需要四个文件与一个文件夹即可实现。第一个文件： Upload.asp 这个文件的源代码如下：<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>说明：这个文件将引用一个名为 upload_Photo.asp 的文件也就是下面要讲的第二个文件作为 框架，同时这里传递一个 PhotoUrlID 参数给 pload_Photo.asp 这个文件的 form1 表单中的名 为 PhotoUrlID 的隐藏域名，其值为 1第二个文件： Upload_Phot

3、o.asp ，这个文件的源代码如下：<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(" 请选择要上传的文件 "); 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>说明：这个是作为第一个文件 Upload.asp 的框架文件，注意这里的 FileName 的文本框是用 于接受上传成功之后图片的地址第三个文件： 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 " 系统未开放文件上传功能 "elseselect case upload_typecase 0call upload_0() ' 使用化境无组件上传类case else'response.write " 本系统未开放插件功能 "'response.endend selectend if%></body></html><%

11、sub upload_0()'使用化境无组件上传类set upload=new upfile_class '' 建立上传对象 upload.GetData(104857600) ' 取得上传数据 ,限制最大上传 100M if upload.err > 0 then '如果出错select case upload.errcase 1response.write " 请先选择你要上传的文件！ "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) ' 生成一个文件对象 oFileSize=ofile.filesizeif oFileSize<100 thenmsg=" 请先选择你要上传的文件！ "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、请 在这里添加文档后缀名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%>第四个文件 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'清除变量及对像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 ' 如果没有数据上传Err = 1Exit SubEnd IfIf MaxSize > 0 Then

22、 ' 如果限制大小If Request.TotalBytes > MaxSize ThenErr = 2 '如果上传的数据超出限制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) '取得每个项目之间的分隔符 sSpace = MidB (RequestBinData,1, InStrB (1,RequestBinData,bCrLf)-1) iStart = LenB (sSpace) iFormStart = iStart+2'分解项目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'取得表单项目名称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'如果是表单项目 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等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论