用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里.docx
《用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里.docx》由会员分享，可在线阅读，更多相关《用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里.docx（11页珍藏版）》请在冰豆网上搜索。
用最简单的语句写一个asp上传图片代码上传到一个指定文件夹里
upfile.asp上传的图片存到images/upfile文件夹下。
--#includeFILE="upfile"-->
<%
ifRequest（"menu"）="up"then
OnErrorResumeNext
Setupl=Server.CreateObject（"SoftArtisans.FileUp"）
If-2147221005=ErrThen
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
setFileUP=newUpload_file
FileUP.GetDate（-1）
formPath="images/upfile/"
setfile=FileUP.file（"file"）
filename=formPath&year（now）&month（now）&day（now）&hour（now）&minute（now）&second（now）&"."&file.FileExt
selectcaseLCase（file.FileExt）
case"gif"
img="[img]"&cluburl&"/"&filename&"[/img]"
case"jpg"
img="[img]"&cluburl&"/"&filename&"[/img]"
case"swf"
img="[flash]"&cluburl&"/"&filename&"[/flash]"
caseelse
error2（"Sorry,thislocalserveronlysupportsGIF,JPGandSWFformatoffiles\ndoesnotsupport"&file.FileExt&"formatoffiles"）
endselect
file.SaveToFileServer.mappath（filename）
setFileUP=nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
else
filename=""&year（date）&""&month（date）&""&day（date）&""&hour（time）&""&minute（time）&""&second（time）&""
selectcase""&upl.ContentType&""
case"application/octet-stream"
error2（"Unknownfileformat!
"）
case"image/gif"
types="gif"
case"image/pjpeg"
types="jpg"
case"application/x-shockwave-flash"
types="swf"
endselect
filename="images/upfile/"&filename&"."&types&""
iftypes="gif"ortypes="jpg"then
img="[img]"&cluburl&"/"&filename&"[/img]"
elseiftypes="swf"then
img="[flash]"&cluburl&"/"&filename&"[/flash]"
else
error2（"Sorry,thislocalserveronlysupportsGIF,JPGandSWFformatoffiles\ndoesnotsupport"&upl.ContentType&"formatoffiles"）
endif
upl.SaveAsServer.mappath（""&filename&""）
setupl=nothing
EndIf
response.write""
responseend
else
%>
menu=up>
9ptname=filesize="2">9pttype="submit"value="Upload"name=Submit>
|
<%
endif
%>
评论
（2） | 25 0
mngenius | 十二级 采纳率43%
擅长：
汇编语言 其他编程语言 数据库DB
其他类似问题
∙2008-03-05用简单的ASP语句把图片上传到服务器指定的文件夹
∙2012-03-22寻找一个asp上传图片的代码，并记录图片名称。
如果有文件并且可以直... 1
∙2008-12-12用纯ASP代码实现图片上传到指定文件夹并存入数据库中的代码。
谁有呀... 13
∙2010-07-31求ASP上传图片代码（上传图片到指定文件夹,同时获取路径保存到数据库...
2008-08-30求个简单的asp上传图片到指定文件夹的例子？
用ASP编写网站应用程序时间长了，难免会遇到各式各样的问题，其中
关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能，就要提供给网友上传照片的功能。
上传图片文件到服务器可以使用各种免费的文件上传组件，使用起来功能虽然很强大，但是由于很多情况下，我们只能使用免费的支持ASP的空间或者租用别人的虚拟空间，对于第一种情况，我们根本就没有可能来使用文件上传组件；至于第二种情况，我们也要付出不少的“银子”才可以。
除非你拥有自己的虚拟主机，你就可以随便的在服务器上面安装自己所需要的组件，这种情况对于大多数人来说是可望而不可及的。
那我们就没有办法了吗？
呵呵，答案是肯定的（当然是肯定的了，要不然我也没法写出这篇文章啊）。
下面就让我们一起来使用纯ASP代码来实现图片的上传以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功能）。
首先我们先来熟悉一下将要使用的对象方法。
我们用来获取上一个页面传递过来的数据一般是使用Request对象。
同样的，我们也可以使用Request对象来获取上传上来的文件数据，使用的方法是Request.BinaryRead（）。
而我们要从数据库中读出来图片的数据显示到网页上面要用到的方法是：
Request.BinaryWrite（）。
在我们得到了图片的数据，要保存到数据库中的时候，不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的AppendChunk方法，同样的，读出数据库中的图片数据，要使用GetChunk方法。
各个方法的具体语法如下：
*Request.BinaryRead语法：
variant=Request.BinaryRead（count）
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法
Request.TotalBytes得到的数据量。
*Request.BinaryWrite语法：
Request.BinaryWritedata
参数
data
要写入到客户端浏览器中的数据包。
*Request.TotalBytes语法：
variant=Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
*AppendChunk语法
将数据追加到大型文本、二进制数据Field或Parameter对?
object.AppendChunkData
参数
objectField或Parameter对象
Data变体型，包含追加到对象中的数据。
说明
使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数据填写到对象中。
在系统内存有限的情况下，可以使用AppendChunk方法对长整型值进行部分而非全部的操作。
*GetChunk语法
返回大型文本或二进制数据Field对象的全部或部分内容。
variable=field.GetChunk（Size）
返回值
返回变体型。
参数
Size长整型表达式，等于所要检索的字节或字符数。
说明
使用Field对象的GetChunk方法检索其部分或全部长二进制或字符数据。
在系统内存有限的情况下，可使用GetChunk方法处理部分而非全部的长整型值。
GetChunk调用返回的数据将赋给“变量”。
如果Size大于剩余的数据，则
GetChunk仅返回剩余的数据而无需用空白填充“变量”。
如果字段为空，则
GetChunk方法返回Null。
每个后续的GetChunk调用将检索从前一次GetChunk调用停止处开始的数据。
但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO将认为已从第一个字段中检索出数据。
如果在第一个字段上再次调用GetChunk方法，ADO将把调用解释为新的GetChunk操作并从记录的起始处开始读取。
如果其他Recordset对象不是首个Recordset对象的副本，则访问其中的字段不会破坏GetChunk操作。
如果Field对象的Attributes属性中的adFldLong位设置为True，则可以对该字段使用GetChunk方法。
如果在Field对象上使用Getchunk方法时没有当前记录，将产生错误3021（无当前记录）。
接下来，我们就要来设计我们的数据库了，作为测试我们的数据库结构如下（Access97）：
字段名称类型描述
id自动编号主键值
imgOLE对象用来保存图片数据
对于在MSSQLServer7中，对应的结构如下：
字段名称类型描述
idint（Identity）主键值
imgimage用来保存图片数据
现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片。
代码如下
（upload.htm）：
<;body>
action="process.asp"method=post>