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

《动态网页开发基础实训指导书第十三次实训.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实训十三ASP+access实现无组件上传图片      本次实训的最终目的是将图片文件上传到文件夹，并将文件名写入数据库中。  一、建立数据库myfile.mdb，建表myfile ，表中有四个字段 id(自动编号)，upname(文本，表示上传者名字)，filename（文本，表示上传后的文件名），uptime(日期/时间，表示上传的时间)。  二、建立一个名为myfile的文件夹，用来放上传后的图片。  三、代码部分  1、upload_5xsoft.asp （这是一个写好的上传类，一会将该

2、文件包含进去，只要会用就可以了）  <%dimData_5xsoftClassupload_5xsoftdimobjForm,objFile,VersionPublicfunctionForm(strForm)strForm=lcase(strForm)ifnotobjForm.exists(strForm)thenForm=""elseForm=objForm(strForm)endifendfunctionPublicfunctionFile(strFile)strFile=lcase(str

3、File)ifnotobjFile.exists(strFile)thensetFile=newFileInfoelsesetFile=objFile(strFile)endifendfunctionPrivateSubClass_InitializedimRequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFiledimiFileSize,sFilePath,sFileType,sFormValue,sFil

4、eNamedimiFindStart,iFindEnddimiFormStart,iFormEnd,sFormNameVersion="！小陈跑跑！"setobjForm=Server.CreateObject("Scripting.Dictionary")setobjFile=Server.CreateObject("Scripting.Dictionary")ifRequest.TotalBytes<1thenExitSubsettStream=Server.CreateObject("

5、adodb.stream")setData_5xsoft=Server.CreateObject("adodb.stream")Data_5xsoft.Type=1Data_5xsoft.Mode=3Data_5xsoft.OpenData_5xsoft.WriteRequest.BinaryRead(Request.TotalBytes)Data_5xsoft.Position=0RequestData=Data_5xsoft.ReadiFormStart=1iFormEnd=LenB(Requ

6、estData)vbCrlf=chrB(13)&chrB(10)sStart=MidB(RequestData,1,InStrB(iFormStart,RequestData,vbCrlf)-1)iStart=LenB(sStart)iFormStart=iFormStart+iStart+1while(iFormStart+10)

7、=1tStream.Mode=3tStream.OpenData_5xsoft.Position=iFormStartData_5xsoft.CopyTotStream,iInfoEnd-iFormStarttStream.Position=0tStream.Type=2tStream.Charset="gb2312"sInfo=tStream.ReadTexttStream.Close'取得表单项目名称iFormStart=InStrB(iInfoEnd,RequestData,sStart)i

8、FindStart=InStr(22,sInfo,"name=""",1)+6iFindEnd=InStr(iFindStart,sInfo,"""",1)sFormName=lcase(Mid(sinfo,iFindStart,iFindEnd-iFindStart))'如果是文件ifInStr(45,sInfo,"filename=""",1)>0thensettheFile=newFileInfo'取得文件名iFindStart=InStr(iFindEnd,sInfo,"f