动态网页开发基础实训指导书第十三次实训精选.docVIP

  • 1
  • 0
  • 约9.09千字
  • 约 15页
  • 2018-01-11 发布于贵州
  • 举报

动态网页开发基础实训指导书第十三次实训精选.doc

动态网页开发基础实训指导书第十三次实训精选

实训十三 ASP+access实现无组件上传图片???? ??本次实训的最终目的是将图片文件上传到文件夹,并将文件名写入数据库中。?? 一、建立数据库myfile.mdb,建表myfile?,表中有四个字段?id(自动编号),upname(文本,表示上传者名字),filename(文本,表示上传后的文件名),uptime(日期/时间,表示上传的时间)。?? 二、建立一个名为myfile的文件夹,用来放上传后的图片。?? 三、代码部分?? 1、upload_5xsoft.asp?(这是一个写好的上传类,一会将该文件包含进去,只要会用就可以了)?? % dim Data_5xsoft Class upload_5xsoft dim objForm,objFile,Version Public function Form(strForm) strForm=lcase(strForm) if not objForm.exists(strForm) then Form= else Form=objForm(strForm) end if end function Public function File(strFile) strFile=lcase(strFile) if not objFile.exists(strFile) then set File=new FileInfo else set File=objFile(strFile) end if end function Private Sub Class_Initialize dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim iFileSize,sFilePath,sFileType,sFormValue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName Version=!小陈跑跑! set objForm=Server.CreateObject(Scripting.Dictionary) set objFile=Server.CreateObject(Scripting.Dictionary) if Request.TotalByteslt;1 then Exit Sub set tStream = Server.CreateObject(adodb.stream) set Data_5xsoft = Server.CreateObject(adodb.stream) Data_5xsoft.Type = 1 Data_5xsoft.Mode =3 Data_5xsoft.Open Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes) Data_5xsoft.Position=0 RequestData =Data_5xsoft.Read iFormStart = 1 iFormEnd = LenB(RequestData) vbCrlf = chrB(13) amp; chrB(10) sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1) iStart = LenB (sStart) iFormStart=iFormStart+iStart+1 while (iFormStart + 10) iFormEnd iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf amp; vbCrlf)+3 tStream.Type = 1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = iFormStart Data_5xsoft.CopyTo tStream,iInfoEnd-iFo

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档