[ASP]无组件上传图片的代码.doc

《[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