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