首先，图片在页面中能查找选择设计表单页面indexasp和上传选择页uploadasp，uploadasp在indexasp中以iframe包含其次，所选图片应能上传到某文件夹建立一文件夹uploadimg 最后，传上去的图片应如何引用很显然，采用UBB立即显示uploadasp的指向对象upfileasp具有写入UBB标签的功能图片上传采；upfile_Streamtype=1 upfile_Streamopen upfile_Streamwrite RequestBinaryReadRequestTotalBytesvbEnter=Chr13Chr10iDivLen=inString1，vbEnter+1 strDiv=subString1，iDivLeniFormStart=iDivLen iFormEnd=inStringiformStart，strDiv1 while iFormStart lt iFormEnd。

给你一个无组件上传类吧，下面是代码lt responseCharset=quotutf8quot#39 #39参数说明 #39InceptFileType 允许上传的文件类型，以英文逗号“，”分隔#39FileWidth 图片宽度 #39FileHeight 图片高度 #39 #39***；aspjpeg组个是较流得的一种 ’ 建立实例 dim jpeg，path set jpeg = servercreateobjectquotpersitsjpegquot’ 图片所在位置 path = servermappathquotimagesquot quot\clockjpgquot’ 打开 jpegopen path ’ 设置缩略图大小这里比例设定为50%jpegwidth = jpegoriginalwidth 2 jpegheight = jpegoriginalheight 2 ’ 保存缩略图到指定文件夹下 jpegsave；1 获取上传文件的原始文件名 可以通过上传文件对象的 `OriginalFileName` 属性来获取上传文件的原始文件名，然后将上传文件直接保存到指定的路径```asp set upload = file = uploadFilesfile1if fileSize Then #39 获取原始；这是放到前面让选择图片的代码和上传按钮 这是Upfile_ProductPicasp文件，修改下存储路径和数据表lt！DOCTYPE HTML PUBLIC quotW3CDTD HTML 401 TransitionalENquot quotloosedtdquotlt%@language=vbscript codepage=936 %lt！#include file=quot；imgOLE对象 用来保存图片数据 对于在MSSQLServer7中，对应的结构如下字段名称 类型 描述 id intIdentity 主键值 img image 用来保存图片数据 现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片代码如下 uploadhtm。

将上面代码改为下面的代码试试看if ！IsExt，sAllowExt parentUploadError#39langquotErrUploadInvalidExtquot+quot#39+sAllowExt+#39quot#39return false。

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；按比例压缩图片SmallImgFilet = quotSmallImgquotsmallnamequotjpgquot #39小图片指定取名 If IsEmptySmallImgFile then #39dim L as Single ， H as Single Set Jpeg = ServerCreateObjectquotPersitsJpegquot #39调用组件 Path = ServerMapPathquotquot quot\quot BigImgFile #39待缩小图片路径 放在根；举个例子吧如果你的图片字段是 images 前台显示代码如下lt% if instrimages，quot，quot1 then #39 instrimages，quot，quot 如果是逗号隔开双引号里面就填“，”dim arrimage，intTemp arrimage=splitimages，quot，quotfor intTemp=0 to uboundarrimageresponsewrite quotquotnext end if%；全部 三个选择页上传subasp，调用的代码页uploadinc， 我就在用这个LZ给分吧1浏览上传 ltform subasp 执行上传并返回地址，同时保存文件名在sessionccc中 lt！#include FILE=quotuploadincquot lt% dim upload，file，formName，formPath，iCountfileformat set upload=new upload_F function。

img image 用来保存图片数据 现在开始正式编写我们的纯ASP代码上传部分了，首先，我们有一个提供给用户的上传界面，可以让用户选择要上传的图片代码如下 uploadhtm 注意enctype=quotmultipartformdataquot，一定要在Form中有这个属性，否则，将无法得到上传上来的数据接下来，我；给你个例子1access表有以下几个字段id 自动编号，filename 文本，type 文本，what OLE对象，size 数字 2上传页面upfilehtm文件上传 文件 3提交页面uploadasp lt！#include file=quotUpLoad_Classaspquot lt dim upload set upload = new AnUpLoad uploadExe = quot*quot；在提交处理程序中有指定文件名的，你打开那个程序文件看代码，把规定的文件名改成你要的通常是表达式就可以，这个很简单的例如filename=SavePathyearnowmonthnowdaynowhournowminutenowsecondnowranNumquotquotfileExt 可以改为filename=SavePathquotmypicquotranNumquot；前台图1图2后面可分别设一个隐藏的 input 用来ajax返回各自的图片名总的提交按钮只提交隐藏的input即可input里是图片名，可同时提交多个input暂无图片在第一次加载html时加载每一次ajax上传图片除了返回图片名到对应的input外，还同时js动态输出新img标签代替对应的暂无图片，新img标签要写好完整。