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

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

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

2、lassupload_5xsoftdimobjForm,objFile,VersionPublicfunctionForm(strForm)strForm=lcase(strForm)ifnotobjForm.exists(st汗orm)thenForm』elseForm=objForm(strForm)endifendfunctionPublicfunctionFile(st汗ile)strFile=lcase(strFile)ifnotobjFile.exists(strFile)thensetFile=newFilein

3、foelsesetFile=objFile(st汗ile)endifendfunctionPrivateSubClassJnitializedimRequestData,sStart,vbCrifsInfo,iInfoStartJInfoEnd^StreamJStartztheFiledimiFileSize,sFilePath,sFileType,sFormValu巳sFileNamedimiFindStartJFindEnddimiFormStartJFormEnd,sFormNameVersion=n!小陈跑跑!"set

4、objForm二Server.CreateObject(”Scripting.Dictionary”)setobjFile=Server.CreateObjectC，Scripting.Dictionary")ifRequest.TotalBytes<lthenExitSubsettStream=Server.CreateObject(,,adodb.streamn)setData_5xsoft二Server.CreateObject(Hadodb.streamH)Data_5xsoft.Type二1Data_5xsof

5、t.Mode=3Data_5xsoft.OpenData_5xsoft.WriteRequest.BinaryRead(Request.TotalBytes)Data_5xsoft.Position二0RequestData二Data_5xsoft.ReadiFormStart=1iFormEnd=LenB(RequestData)vbCrlf二chrB(13)&chrB(10)sStart=MidBCRequestDataJ,InStrB(iFormStart/RequestData/vbCrlf)-l)iStart

6、=LenB(sStart)iFormStart=iFormStart+iStart+lwhile(iFormStart+10)

7、tream.Type=2tStream.Charset=ngb2312nslnfo=tStream.ReadTexttStream.Close，取得表单项目名称iFormStart二InStrB(iInfoEnd/RequestData,sStart)iFindStart=InStrQZ^InfcVname二iFindEnd=InStr(iFindStartsInfo「”"；l)sFormName=lcase(Mid(sinfoJFindStartJFindEnd-iFindStart))'如果是文件ifInStr(45/sI

8、nfo/,,filename=n"'1)>0thensettheFile=newFilelnfo取得文件名iFindStart=InStr(iFindEnctsInfo/,,filename=,,n,,/l)+10iFindEnd=InStr(iFindStartzsInf