用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里.docx

1、用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里upfile.asp 上传的图片存到images/upfile文件夹下。%if Request(menu)=up thenOn Error Resume NextSet upl = Server.CreateObject(SoftArtisans.FileUp)If -2147221005 = Err Thenset FileUP=new Upload_file FileUP.GetDate(-1)formPath=images/upfile/set file=FileUP.file(file)filename=formPath&ye

2、ar(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&.&file.FileExtselect case LCase(file.FileExt)case gifimg=img&cluburl&/&filename&/imgcase jpgimg=img&cluburl&/&filename&/imgcase swfimg=flash&cluburl&/&filename&/flashcase elseerror2(Sorry ,this local server only supports GIF , JPG and SWF

3、 format of filesn does not support &file.FileExt& format of files)end selectfile.SaveToFile Server.mappath(filename)set FileUP=nothingelsefilename=&year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)&select case &upl.ContentType&case application/octet-streamerror2(Unknown file form

4、at!)case image/giftypes=gifcase image/pjpegtypes=jpgcase application/x-shockwave-flashtypes=swfend selectfilename=images/upfile/&filename&.&types&if types=gif or types=jpg thenimg=img&cluburl&/&filename&/imgelseif types=swf thenimg=flash&cluburl&/&filename&/flashelseerror2(Sorry ,this local server o

5、nly supports GIF , JPG and SWF format of filesn does not support &upl.ContentType&format of files)end ifupl.SaveAs Server.mappath(&filename&)set upl=nothingEnd Ifresponse.write parent.myform.pic.value=admin/&filename&responseendelse% 评论(2)|250mngenius|十二级采纳率43%擅长：汇编语言其他编程语言数据库DB其他类似问题 2008-03-05用简单的

6、ASP语句把图片上传到服务器指定的文件夹 2012-03-22寻找一个asp上传图片的代码，并记录图片名称。如果有文件并且可以直.1 2008-12-12用纯ASP代码实现图片上传到指定文件夹并存入数据库中的代码。谁有呀.13 2010-07-31求ASP上传图片代码(上传图片到指定文件夹,同时获取路径保存到数据库.2008-08-30求个简单的asp上传图片到指定文件夹的例子？用ASP编写网站应用程序时间长了，难免会遇到各式各样的问题，其中 关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能，就要提供给网友上

7、传照片的功能。上传图片文件到服务器可以使用各种免费的文件上传组件，使用起来功能虽然很强大，但是由于很多情况下，我们只能使用免费的支持ASP的空间或者租用别人的虚拟空间，对于第一种情况，我们根本就没有可能来使用文件上传组件；至于第二种情况，我们也要付出不少的“银子”才可以。除非你拥有自己的虚拟主机，你就可以随便的在服务器上面安装自己所需要的组件，这种情况对于大多数人来说是可望而不可及的。那我们就没有办法了吗？呵呵，答案是肯定的（当然是肯定的了，要不然我也没法写出这篇文章啊）。下面就让我们一起来使用纯ASP代码来实现图片的上传以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功能）。

8、首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从数据库中读出来图片的数据显示到网页上面要用到的方法是： Request.BinaryWrite()。在我们得到了图片的数据，要保存到数据库中的时候，不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的AppendChunk方法，同样的，读出数据库中的图片数据，要使用GetChunk方法。各个方法的具体语法如下：* Request.BinaryRea

9、d语法：variant = Request.BinaryRead(count)参数variant返回值保存着从客户端读取到数据。count指明要从客户端读取的数据量大小，这个值小于或者等于使用方法Request.TotalBytes得到的数据量。* Request.BinaryWrite语法：Request.BinaryWrite data参数data要写入到客户端浏览器中的数据包。* Request.TotalBytes语法：variant = Request.TotalBytes参数variant返回从客户端读取到数据量的字节数。* AppendChunk语法将数据追加到大型文本、二进制数

10、据 Field 或 Parameter 对? object.AppendChunk Data参数object Field 或 Parameter 对象Data 变体型，包含追加到对象中的数据。说明 使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长整型值进行部分而非全部的操作。* GetChunk语法返回大型文本或二进制数据 Field 对象的全部或部分内容 。variable = field.GetChunk( Size )返回值返回变体型。参数Size 长整型表

11、达式，等于所要检索的字节或字符数。说明 使用 Field 对象的 GetChunk 方法检索其部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用 GetChunk 方法处理部分而非全部的长整型值。GetChunk 调用返回的数据将赋给“变量”。如果 Size 大于剩余的数据，则GetChunk 仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则GetChunk 方法返回 Null。 每个后续的 GetChunk 调用将检索从前一次 GetChunk 调用停止处开始的数据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO 将认为已从第一个字段中检索出

12、数据。如果在第一个字段上再次调用 GetChunk 方法，ADO 将把调用解释为新的 GetChunk 操作并从记录的起始处开始读取。如果其他 Recordset 对象不是首个 Recordset 对象的副本，则访问其中的字段不会破坏 GetChunk 操作。如果 Field 对象的 Attributes 属性中的 adFldLong 位设置为 True，则可以对该字段使用 GetChunk 方法。如果在 Field 对象上使用 Getchunk 方法时没有当前记录，将产生错误 3021（无当前记录）。接下来，我们就要来设计我们的数据库了，作为测试我们的数据库结构如下（Access97）：字段

13、名称 类型 描述 id 自动编号 主键值img OLE对象 用来保存图片数据 对于在MS SQL Server7中，对应的结构如下：字段名称 类型 描述 id int(Identity) 主键值img image 用来保存图片数据 现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片。代码如下（upload.htm）： 注意代码中黑色斜体的部分，一定要在Form中有这个属性，否则，将无法得到上传上来的数据。 接下来，我们要在process.asp中对从浏览器中获取的数据进行必要的处理，因为我们在process.asp中获取到的数据不仅仅

14、包含了我们想要的上传上来的图片的数据，也包含了其他的无用的信息，我们需要剔除冗余数据，并将处理过的图片数据保存到数据库中，这里我们以Access97为例。具体代码如下（process.asp）：好了，这下我们就把上传来的图片保存到了名为images.mdb的数据库中了，剩下的工作就是要将数据库中的图片数据显示到网页上面了。一般在HTML中，显示图片都是使用标签，也就是，但是我们的图片是保存到了数据库中，“图片路径”是什么呢？呵呵，其实这个SRC属性除了指定路径外，也可以这样使用哦：所以，我们所要做的就是在showimg.asp中从数据库中读出来符合条件的数据，并返回到SRC属性中就可以了，具体

15、代码如下（showimg.asp）：注意在输出到浏览器之前一定要指定Response.ContentType = image/*，以便正常显示图片。 最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其他数据，比如等等，如果有这些项目，你的process.asp就要注意处理掉不必要的数据。怎么样，其实上传图片并保存到数据库很简单吧，这样再也不用为自己的空间无法使用各类的上传组件发愁了吧。还等什么？赶快试一试吧。评论(3)|130yyrcjc|六级采纳率27%擅长：地下城与勇士其他类似问题 2009-06-22asp如何在上传图片指定路径文件夹

16、的同时，传入数据库路径？7 2010-07-31求ASP上传图片代码(上传图片到指定文件夹,同时获取路径保存到数据库. 2008-11-07ASP求断代码将上传图片存储到指定文件夹里并将图片保存路径保存到. 2011-02-01ASP图片上传代码，不用写入数据库，只要保存到指定文件夹呢就好了更多相关问题asp代码的相关知识 2011-06-15asp代码加密3 2011-10-05asp代码加密工具 10.0 真正解密办法8 2011-02-12asp代码加密了？1 2010-07-15ASP代码加密问题1 2009-05-07asp代码加密 无组件1更多关于asp代码的问题asp代码加密工具

17、 10.0 真正解密办法2011-10-03 22:14程序天下无双|分类：其他编程语言|浏览2102次哪个鸟人有asp代码加密工具 10.0的破解办法啊？有的话留下QQ 比有报酬！开始在问了一次，靠都答非所问。请睁大眼睛看，不是微软出的screnc.exe加密，不知道的别乱出气，也不要乱复制一些普通的加密或解密函数，对我一点用都没有。分享到：2011-10-04 12:04提问者采纳据我所知，目前还没有相应的解密方式，但是早期版本8.0的因为一个漏洞倒是有一个破解工具的，但是9.0及以后的版本就没有了。我的回答希望对你有帮助。asp代码解密如下： 用的什么工具加密的？如何解密谢谢#&P,Dk

18、dnM+. ;DnlDn4%mDJmNK4cDnmKDdYJ*P,#&,/$VJd+sn1YYK2P8PM6DWh.trM;bL|kKPh4+MnPjknhwVCLFPmUN,qf*EqGrPGDnMP8X,(fr#&,PPdnDP./KxUc+X+m!Yc/$VbP,P#&,PP,r0,D/cnG0,Y4+UP#&Pn/aWUdR.rD+J上一篇：没有了 r#&P,PV/#&P,PqG:rUD/vEqGJ#,#&P,I/2WUdR DbO+,J上一篇：!C,tDnWB_q WKqJLqfsk JLZslk/(JMdrZVmddq9J*EB*ELDdr(x6WHCs+Jbr!&l* E#&,+

19、 NPb0#&P,DdR1VGd#&E获取下一个S取qG比当前qf小的第一个同类资讯B因为新闻资讯排序是按(9逆序排列的感观上的下一个其实是&f要比当前小的#&/nO,DdP/D-nMRm.nmYnW(%mOvJmNW94c.+1W.Nk+OE*#&,d;Jkns+1Y,YGwq,e0MG:,y4r|DErmTrW,A4+.Pjk+SsCoFPmx&f!rqGJ,G.ND,4zP(9,Nn/1E#&PdnDPDdx1WUxcnX+!Y/$V*P,#&Pb0.kR+KWPDt+ #&P,I/2WUdR DbO+,J下一篇：没有了 E#&P+sd#&P,P(G:m6M/vEqGJbP#&+/aGx

20、k+Rq.rYPr下一篇：!CP4.0xBQ(x6W(J(9slar;VCk/&NrMdrZslk/(r#rv*rDkcEq 0K1C:nE*E!JC*r#&,+xb0#&,M/ 1VK/+#&,D/2W /n SDkDnJ!zY9*!zDD*!&YC8+*J#&P,/nO,D/xUKY4k L#&,+ NP6E YbWU#&ZIAIAA=#%请高手帮我把这个ASP代码解密下！请问是用什么工具加密的？2011-10-11 10:05匿名|分类：其他编程语言|浏览339次%#0gIAAA=#&s; mDkW PAUKbs-b.$zjlV,#&fbhBPbx#&1PxPnwlnvm/4Dc&+b,

21、;tM Wf#BP/tMf*#&PPI2sl1+vmSP/4MfG*,Z4.qO+*2#,/4Dc+ *P;tMc&F#,Z4.vv *b#&sWMrPP8PPWJxcm*#&,P&0Pr!*x,P4+U#&,PP,P,P7PxPz/ vHk9cmBPkBq#*#&PP,Pq6,*x2&P)U9P-P!x,G1,K4+x#&,P,PP,P,2x:rs7by,x2 Kbs-bLP/tMc,_*F#&,PP,2sk+&0P7P*xPR!b N-,!,q +PK4nU#&P,PP,PP,3x:ko-zyPxAxPkw-zyLP;tDv,RPWGb#&P,PP,2/+#&P,P,PP,PUPk,_q#

22、&P,PP,P&0,Hk91SP F*Pxr$J,Ptx#&P,P,PP,PP,3x:ko-zyPxAxPkw-zyLP;tDq7_,*b#&P,PP,P,PPAsd+#&,PP,PP,P,P3 Kko-zy,3 KrwzyPLPtrNvmSPbq*#&,P,PP,P,PAxP(W#&P,P,P3 NP(W#&P,Ax,q6#&g+XO#&2UN,s;U1YkKU#&15gAAA=#分享到：网友采纳注意到Language=VBScript.Encode了么,不是Language=VBScript,这就是加密方法.解码后是Function EnTiFvAz(ByVal c)Dim v, i, nc = Replace(c, Chr(36) & ChrW(-243), Chr(36)c =