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

1、动态网页开发基础实训指导书第十三次实训动态网页开发基础实训指导书第十三次实训作者： 日期： 实训十三 P+acess实现无组件上传图片本次实训的最终目的是将图片文件上传到文件夹，并将文件名写入数据库中。一、建立数据库y,建表yie,表中有四个字段id(自动编号),upname(文本,表示上传者名字)，(文本,表示上传后的文件名)，uptie(日期/时间,表示上传的时间)。二、建立一个名为mfie的文件夹,用来放上传后的图片。三、代码部分、upload5xoft.asp（这是一个写好的上传类，一会将该文件包含进去，只要会用就可以了） 0 thn e 取得文件名 iindStt nSt(iFidE

2、nd,snfo,1)+10 iFd = InSt（iidSrt,Ifo,，) s =id (snfo,iFindStat，idn-iindSart) s = plac(cstr（w（)），:,) the(s) t(s) 取得文件类型 iFnSt= InS(iFindEnd,fo，Cntent-Type: ,1)+14 iFinEnd = Itr（iFinStrt，snfo,vbr) the =Mid (sno，iFintt，FidEd-iFinSat) t =iInond the = iormStart -iInfoEnd -3 the if ot oj(Forame) tn obj sFmN

3、m,thile nd if ele 如果是表单项目 Stream.p = tStrm.Mod = Stam.Ope Dat_5xsoftPoiin iIond Data_xsoft.CopyTo tSream，iForStar-iInfon-3 tStea.sito = 0 ttram.Typ tStream.hat=2312 sFoml = tStreaReadT tStream.lse if bjFom.Exss(srmNae) then bjForm(sFrmme)bjFr（orName)&,&sFormValue lse bjFormAdd sorName，sormValue d if

4、 endif irmtrt=iFormtar+iStt+1 wnd euestata tStream =ohing Edub Private Sub Cls_Tinate iReuestTalBytes0 then oForm.ReoveAl obj set ojForm=nting s ob Daa_5xsoft.ose et Da5sft nthing en i Sub rivte functn Get(ullPath) If ullPath The Ge = ft(Fl，trRev(FullPath, )） lse Get = n I End functo Pivae unctio Ge

5、（uPath) Randoize If FuPath he Geteplace(rela(relac(cr(now()，:,),），,） ap;mi(FulPat,nStrR(FllPah, )+1） tp md（ullah,InSrRev(FullPh, )1) tmp_istr=ln(mp)-InStrRv(tmp,）+1 tmp(tm) Gt =replace(repla(repace（cstr(no（)，：,）,),) amp; Csr（nt(1000000 Rnd )）& VKE tmp Ee Get = End f Ed untion Ed Class C dim FormNae,

6、 vate Sb lass_Iniializ = = = 0 0 FormNam = = End S Pulc nctin aveAs(Fulath) d dr,Errrhar, vAs=rue if trm(fullpath)r o or rght(ulh,1)= ten exit fto st =CeateOjec(Adob.Strem） dr.Mode=3 dr.Type=1 dr.pen Dat_5xoftpositin Dat_sft.cpyto dr, d.SaveToFilFllPth,2 dr.Close set dr=nothg SavA=fale end fucin n C

7、ls %二、conn.as（数据库连接代码，一会包含使用）三、idex.asptr上传者:tddh=5/td图片文件：tdahre=mil/target=_lak点击查看文件夹上传时间：tdtdwidt=181%=s(uptime)%/td/taltrtdwidth=92上传者:/tdtrtd上传图片：/tt/fo四、otw.asp(处理表单数据的文件）！-#icuel=conn.sp-0ad0说明有文件数据=LCae(Righ()最文件名的后四位字符,并转成小写f.jpgoriforo.JPGthen判断图片的格式,你也可以去掉不判断PicNae将文件名赋值给变量PiNameSrver.ma

8、pa（fomPath&)保存文件ioutiunt+1elseresposewriteresponse.wraert(你上传的图片格式不正确);respneiteiory.g(1)；onse.writresonse.edendifesif26144th如果文件大于256K,这个数值你可以自己算261024rsponsewiteciptlagagejvascripreponseitalrt（上传的图片大于26K,上传失败！）;responsewitehistor.(1)；reose.wrieresponse.enendiendifsetnextup_pc=Pic_me本函数的作用是,将上传的图片上

9、传到文件夹中，并将文件名返回efuctionpcname=ppic()调用upic（)函数，返回文件名sers=sererCeaebjec（aob.rcordst）建立一个记录集对象rsl=eec*frommyfileropsql，con,1,3打开记录集参数1，3表示可以修改方式打开.addners(pnme)tri(uploadform（upname）)这里要注意，必须用ulod.or来获取表单的值，和平常不一样,不能用equesormrs（）=pinamers（ptime)=now()r.pdats.ose使用完后关闭记录集sets=nohgon.ose关闭数据库连接对象eton=notinMETATT-EQUI=“refresh”CTENT=0;r=;chrse=gb2312