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

[ASP]无组件上传图片的代码[ASP]无组件上传图片的代码我好不容易弄到了一个能上传图的代码，本以为是很完美了。但在运行时还是出现点错误，请高手指教！我是用一个含有表单的静态网页来接受图形数据及其他表单域的值，提交到 updata.asp来处理 updata.asp: <% Response.Buffer=true formsize=Request.TotalBytes formdata=Request.BinaryRead(formsize) Set Fields = GetUpload(FormData) la...

[ASP]无组件上传图片的代码我好不容易弄到了一个能上传图的代码，本以为是很完美了。但在运行时还是出现点错误，请高手指教！我是用一个含有表单的静态网页来接受图形数据及其他表单域的值，提交到 updata.asp来处理 updata.asp: <% Response.Buffer=true formsize=Request.TotalBytes formdata=Request.BinaryRead(formsize) Set Fields = GetUpload(FormData) lanmu=Fields("lanmu").value '按错误信息提示是从这一句开始出错的：缺少对象: 'Fields(...)' xinjiu=Fields("xinjiu").value fangshi=Fields("fangshi").value diqu=Fields("diqu").value biaoti=Fields("biaoti").value jiage=Fields("jiage").value neirong=Fields("neirong").value url=Fields("url").value dianhua=Fields("dianhua").value qq=Fields("qq").value lianxiren=Fields("lianxiren").value jiezhi=Fields("jiezhi").value imgdata=Fields("pic").value Dim rs_updata Dim rs_updata_numRows Set rs_updata = Server.CreateObject("ADODB.Recordset") rs_updata.ActiveConnection = MM_co_jiaoyi_STRING rs_updata.Source = "SELECT id, name, lanmu, xinjiu, fangshi, diqu, biaoti, jiage, neirong, pic, url, dianhua, qq, lianxiren, jiezhi, time, hfs, dianji FROM tjiaoyi" rs_updata.CursorType = 0 rs_updata.CursorLocation = 2 rs_updata.LockType = 1 rs_updata.Open() rs_updata.addnew rs_updata.Fields("lanmu").value=lanmu rs_updata.Fields("xinjiu").value=xinjiu rs_updata.Fields("fangshi").value=fangshi rs_updata.Fields("diqu").value=diqu rs_updata.Fields("biaoti").value=biaoti rs_updata.Fields("jiage").value=jiage rs_updata.Fields("neirong").value=neirong rs_updata.Fields("pic").AppendChunk imgdata rs_updata.Fields("url").value=url rs_updata.Fields("dianhua").value=dianhua rs_updata.Fields("lianxiren").value=lianxiren rs_updata.Fields("qq").value=qq rs_updata.Fields("jiezhi").value=jiezhi rs_updata.update rs_updata.Close() Set rs_updata = Nothing Response.write "恭喜您！您的信息已经发布成功！返回" %> 其中upload.inc提供GetUpload函数，用该函数来获得表单所提交的图片数据和其他表单域的值 upload.inc 运行到updata.asp显示出错信息： Microsoft VBScript 编译器错误错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误错误 '800a01a8' 缺少对象: 'Fields(...)' /sm108/jiaoyi/huabu/upok.asp，行10 我就是在这边卡了N久，还望各位高手赐教！谢谢！不是有错误说明了吗但是那错误信息，我觉得是莫明其妙啊也不懂： "缺少对象: 'Fields(...)' " 是什么东东请各位高手帮忙啊没人来帮忙啊这是我碰到最棘手的问题，看来是没这么快解决了再等，好事多磨你的代码里有on error resume next吗？

                    本文档为【[ASP]无组件上传图片的代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_212655

暂无简介~

格式：doc

大小：33KB

软件：Word

页数：8

分类：互联网

上传时间：2018-02-21

浏览量：19

热点搜索

DK-2型制动机各主要模块的结构及工作原理的研究武汉东湖风景区导游解说词 [宝典]TNY277PN FAN7529 FAN7602方案电源电路分析与检修深入理解计算机系统读书报告总账明细账本报表模板小学四年级数学过桥问题低压配电室操作规程钢混叠合梁技术方案无锡市初中一览表 C9发动机维修初中英语学科知识与教学能力三年高考（2019-2021）物理试题分项汇编——专题13 热学（教师版） ACCESS域聚合函数船舶、轮机英语词汇大全 DK-2型制动机各主要模块的结构及工作原理的研究武汉东湖风景区导游解说词 [宝典]TNY277PN FAN7529 FAN7602方案电源电路分析与检修深入理解计算机系统读书报告总账明细账本报表模板小学四年级数学过桥问题低压配电室操作规程钢混叠合梁技术方案无锡市初中一览表 C9发动机维修初中英语学科知识与教学能力三年高考（2019-2021）物理试题分项汇编——专题13 热学（教师版） ACCESS域聚合函数船舶、轮机英语词汇大全