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

实训十三 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-iF