资源描述:
《[ASP]无组件上传图片的代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、[ASP]图片上传的代码我好不容易弄到了一个能上传图的代码,本以为是很完美了。但在运行时还是出现点错误,请高手指教!我是用一个含有表单的静态网页来接受图形数据及其他表单域的值,提交到updata.asp来处理updata.asp:<%Response.Buffer=trueformsize=Request.TotalBytesformdata=Request.BinaryRe
2、ad(formsize)SetFields=GetUpload(FormData)lanmu=Fields("lanmu").value '按错误信息提示是从这一句开始出错的:缺少对象:'Fields(...)'xinjiu=Fields("xinjiu").valuefangshi=Fields("fangshi").valuediqu=Fields("diqu").valuebiaoti=Fields("biaoti").valuejiage=Fields("jiage").valueneirong=Fields("neirong").v
3、alueurl=Fields("url").valuedianhua=Fields("dianhua").valueqq=Fields("qq").valuelianxiren=Fields("lianxiren").valuejiezhi=Fields("jiezhi").valueimgdata=Fields("pic").valueDimrs_updataDimrs_updata_numRowsSetrs_updata=Server.CreateObject("ADODB.Recordset")rs_updata.ActiveConne
4、ction=MM_co_jiaoyi_STRINGrs_updata.Source="SELECTid,name,lanmu,xinjiu,fangshi,diqu,biaoti,jiage,neirong,pic,url,dianhua,qq,lianxiren,jiezhi,time,hfs,dianjiFROMtjiaoyi"rs_updata.CursorType=0rs_updata.CursorLocation=2rs_updata.LockType=1rs_updata.Open()rs_updata.addnewrs_upda
5、ta.Fields("lanmu").value=lanmurs_updata.Fields("xinjiu").value=xinjiurs_updata.Fields("fangshi").value=fangshirs_updata.Fields("diqu").value=diqurs_updata.Fields("biaoti").value=biaotirs_updata.Fields("jiage").value=jiagers_updata.Fields("neirong").value=neirongrs_updata.Fi
6、elds("pic").AppendChunkimgdatars_updata.Fields("url").value=urlrs_updata.Fields("dianhua").value=dianhuars_updata.Fields("lianxiren").value=lianxirenrs_updata.Fields("qq").value=qqrs_updata.Fields("jiezhi").value=jiezhirs_updata.updaters_updata.Close()Setrs_updata=NothingRe
7、sponse.write"恭喜您!您的信息已经发布成功!返回"%>其中upload.inc提供GetUpload函数,用该函数来获得表单所提交的图片数据和其他表单域的值upload.incFunctionGetUpload(FormData)DimDataStart,DivStr,DivLen,DataSize,FormFieldDataDivStr=LeftB(FormData,InStrB(F
8、ormData,str2bin(VbCrLf))+1)DivLen=LenB(DivStr)PosOpenBoundary=InStrB(FormData,DivS