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

1文件自动上传到pic目录自按日期时间生成不重复的文件名2上传的文件的文件名自动生成并可这样取出 myRequestFormquotfile1quot3text框的数据这样取 myRequestFormquottitlequot4这个类的代码可在这里lt%#39***图片上传类开始***Class UpLoadClass Private _MaxSize，p_FileTypep_SavePath，p_AutoSave，p_Error。

首先，图片在页面中能查找选择设计表单页面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。

全部 三个选择页上传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中有这个属性，否则，将无法得到上传上来的数据接下来，我。

#39dim L as Single ， H as Single Set Jpeg = ServerCreateObjectquotPersitsJpegquot #39调用组件 Path = ServerMapPathquotquot quot\quot BigImgFile #39待缩小图片路径 放在根目录 你可以制定文件夹 在后面 JpegOpen Path #39打开图片 L = 12080#39缩略图高与宽比 你如果只限制宽度就。

responsewrite MYheadquot易博智能建站管理后台quot name quotquot，quotleftquotresponsewrite ebcssjdnameDim lidlid=usbrequestquotlidquotDim lxlx=usbrequestquotlxquotIf lx=quotquot Then lx=2 Dim ShangChuan_GeShi_HShangChuan_GeShi_H=quotasp，asa，inc，aspx，php，jsp，htm，htmlquotDim BiaoDanShu。

给你个例子1access表有以下几个字段id 自动编号，filename 文本，type 文本，what OLE对象，size 数字 2上传页面upfilehtm文件上传ltbr ltform action=quotuploadaspquot method=quotpostquot enctype=quotmultipartformdataquot 文件 ltinput type=quotfilequot。

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

上传代码的时候只是把图片名称修改成数字了，但没有加扩展名吧最好修改下上传代码或者你直接ltimg src=quotlt%=rsquotpriductpicquot%jpgquot。

responsewritequotalert#39图片上传成功#39quotelse responsewritequotalert#39不允许上传quot houzui quot的格式#39quotend if end if ltimg src=quotlt%=filename%quot 这里的 filename 就是图片地址 ADODBStream 0x800A0BBC写入文件失败2uploadasp， 第 18 行 是因为 第 11。

1如果是上传图片，首先需要在ASP代码中包含文件上传组件这通常通过 `` 标签内的 `enctype` 属性实现，将其设为 `quotmultipartformdataquot`同时，`` 元素用于用户选择图片文件进行上传2关于图片无法显示的问题，可能源于几个原因首先，检查图片路径是否正确在HTML中引用图片时，路径应当是。

分类 电脑网络 程序设计 其他编程语言 问题描述网上搜的多而且杂，越看越迷糊最好把每页的代码都写一下，大致两三个页就可以解决了，谢谢达人帮助解析三个页选择页，上传页sub，调用的代码页uploadinc，我自己就在用这个，LZ给分吧 1浏览上传 sub 执行上传并返。

在有安全限制范围内，FolderExists是失效的解决办法就是FolderExists的判断应该从虚拟主机本身所属的网站目录为起点如客户的目录是3233，放在D\2这个目录下，在安全限制情况下，无法识别到D\2\这层，只能从D\2\3233开始修改文件中的CheckOrCreatePath函数 代码如下Private。

由于eWebEditor编辑器版本不同，有的可能找不到上面的代码，而是下面这样的代码，两种代码只是书写格式不同而已，含义是一样的if elementYUSERONCLICK evalelementYUSERONCLICK + quotanonymousquot3将上面的代码替换为下面的代码即可或者改变路径上传只要能找到它的保存路径就可以了然后。

ltimg src=quotimage_showimgasp？id=lt%=rsquotidquot%quotwidth=quot100quot height=quot80quot 它的连接不对啊应该是。

uppicasp上传程序名 lt dim rs dim formsize，formdata，bncrlf，divider，datastart，dataend，mydata formsize=requesttotalbytes #39取得客户端发过来的大小 formdata=requestbinaryreadformsize#39把客户发过来的数据转成二进制作 bncrlf=chrB13 chrB10divider=leftBformdata，clnginstrbformdata。