1 获取上传文件的原始文件名 可以通过上传文件对象的 `OriginalFileName` 属性来获取上传文件的原始文件名，然后将上传文件直接保存到指定的路径```asp set upload = file = uploadFilesfile1if fileSize Then #39 获取原始文件名 filename =。

这是放到前面让选择图片的代码和上传按钮 这是Upfile_ProductPicasp文件，修改下存储路径和数据表lt！DOCTYPE HTML PUBLIC quotW3CDTD HTML 401 TransitionalENquot quotloosedtdquotlt%@language=vbscript codepage=936 %lt！#include file=quot。

最后，传上去的图片应如何引用很显然，采用UBB立即显示uploadasp的指向对象upfileasp具有写入UBB标签的功能图片上传采用稻香老农的无组件上传所以uploadinc文件必不可少1，uploadinc拷贝以下文本框的所有代码ltSCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfile_5xSoft_Stream Class upload。

有两种方式，一种是直接以二进制形式存入数据库还有一种是图片存入硬盘，把路径存入数据库用第一种方式很耗数据库资源，个人建议用后者rar 这是个用FLASH上传的模块。

#39 如果函数执行过程中出现错误，将返回错误代码，错误代码以 “Error”开头 #39 Error_01创建AspJpeg组件失败，没有正确安装注册该组件 #39 Error_02原图片不存在，检查s_OriginalPath参数传入值 #39 Error_03缩略图存盘失败可能原因缩略图保存基地址不存在，检查s_OriginalPath参数传入值对。

全部 三个选择页上传subasp，调用的代码页uploadinc， 我就在用这个LZ给分吧1浏览上传 ltform subasp 执行上传并返回地址，同时保存文件名在sessionccc中 lt！#include FILE=quotuploadincquot lt% dim upload，file，formName，formPath，iCountfileformat set upload=new upload_F function。

采用无组件下载代码upfileasp lt% #39OPTION EXPLICIT% lt！#include FILE=quotupload_5xsoftincquot lt dim upload，file，formName，formPath，iCount，MyFile set upload=new upload_5xSoft #39#39建立上传对象 formpath=quotuserdataquot #39#39得到上传目录 nian=YearDateyue=MonthDateri=DayDatei。

给你一个无组件上传类吧，下面是代码lt responseCharset=quotutf8quot#39 #39参数说明 #39InceptFileType 允许上传的文件类型，以英文逗号“，”分隔#39FileWidth 图片宽度 #39FileHeight 图片高度 #39 #39***。

imgOLE对象 用来保存图片数据 对于在MSSQLServer7中，对应的结构如下字段名称 类型 描述 id intIdentity 主键值 img image 用来保存图片数据 现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片代码如下 uploadhtm。

img OLE对象 用来保存图片数据 对于在MSSQLServer7中，对应的结构如下字段名称 类型 描述 id intIdentity 主键值 img image 用来保存图片数据 现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片代码如下 upload。

1 创建Uploadinc自定义组件文件 创建一个名为Uploadinc的文件，并确保其扩展名为inc 在Uploadinc文件中，编写源代码以处理图片上传获取图片宽高等功能这段代码将负责整个上传过程，包括文件的接收验证以及与数据库的关联2 创建图片上传页面 创建一个用于图片上传的ASP页面。

lt set upfile_Stream=CreateObjectquotAdodbStreamquotupfile_Streammode=3 upfile_Streamtype=1 upfile_Streamopen upfile_Streamwrite RequestBinaryReadRequestTotalBytesvbEnter=Chr13Chr10iDivLen=inString1，vbEnter+1 strDiv=subString1，iDivLeniFormStart=iDivLen iForm。

找到其对应的页面，进行修改你点击上传的时候，会弹出个页面，鼠标点右键，看属性，就知道页面是哪个了不知道怎么改，就把那个页面提交后的代码贴上来。

ASP批量上传图片代码风声无组件上传类#39上传界面 upasplt%@LANGUAGE=quotVBSCRIPTquot CODEPAGE=quot936quot%lt！#include file=quotConnectionsconnaspquot lt #39主菜单 Dim zpmenurs Dim zpmenurs_numRowsSet zpmenurs = ServerCreateObjectquotADODBRecordsetquotzpmenursActiveConnection = MM_conn_。

lt Dim namename=quot图文混排添加文章quotresponsewrite MYheadquot易博智能建站管理后台quot name quotquot，quotleftquotresponsewrite ebcssjdnameDim lidlid=usbrequestquotlidquotDim lxlx=usbrequestquotlxquotIf lx=quotquot Then lx=2 Dim ShangChuan_GeShi_HShangChuan_GeShi_H=quotasp，asa，inc。

遇到过这样的问题，这个是后台编辑器ewebeditor与IE8不兼容造成的，最简单的办法是还换回IE6浏览器，因为现在多数电脑还用ie60。