ID:1483564
大小:143.50 KB
页数:6页
时间:2017-11-11
执行后界面如下:2、SAVE_PIC.asp代码如下:<%Ser
5、ver.ScriptTimeOut=300%>
6、n=0Fori=1To3'图片数据开始位置datastart=instrb(datastart+datalen+1,formdata,bncrlf&bncrlf)+4'图片数据结束位置datalen=instrb(datastart+1,formdata,divider)-datastart'获取图片数据mydata(i)=midb(formdata,datastart,datalen)Nextdimconndimconnstronerrorresumenextconnstr="DBQ="+server.mappath("pic.mdb")+";DefaultDir=
7、;DRIVER={MicrosoftAccessDriver(*.mdb)};"setconn=server.createobject("ADODB.CONNECTION")conn.openconnstrREM增加主图片IFLEN(RTRIM(MYDATA(1)))>2THENsql="select*fromimageswhereimgidisnullorderbyimgiddesc"Setrs=Server.CreateObject("ADODB.Recordset")rs.Opensql,conn,3,2rs.addnewrs("img").a
此文档下载收益归作者所有