无组件上传图片之文件采用方案

作者：字体：[增加减小] 来源：互联网时间：2017-05-11

通过本文主要向大家介绍了asp无组件上传图片,asp无组件上传,无组件上传,艾恩asp无组件上传,艾恩无组件上传等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com

首先，图片在页面中能查找选择。设计表单页面index.asp和上传选择页upload.asp，upload.asp在index.asp中以iframe包含。

其次，所选图片应能上传到某文件夹。建立一文件夹uploadimg

最后，传上去的图片应如何引用？很显然，采用UBB立即显示。upload.asp的指向对象upfile.asp具有写入UBB标签的功能。

无组件上传调试文件夹
    -- index.asp
    -- upload.asp
    -- upfile.asp
    -- uploadimg文件夹

图片上传采用稻香老农的无组件上传。所以upload.inc文件必不可少。

1，upload.inc（拷贝以下文本框的所有代码）

dim upfile_5xSoft_Stream

Class upload_5xSoft
 
dim Form,File,Version
 
Private Sub Class_Initialize 
    dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
    dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
    Version=""
    if Request.TotalBytes<1 then Exit Sub
    set Form=CreateObject("Scripting.Dictionary")
    set File=CreateObject("Scripting.Dictionary")
    set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
    upfile_5xSoft_Stream.mode=3
    upfile_5xSoft_Stream.type=1
    upfile_5xSoft_Stream.open
    upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)
    
    vbEnter=Chr(13)&Chr(10)
    iDivLen=inString(1,vbEnter)+1
    strDiv=subString(1,iDivLen)
    iFormStart=iDivLen
    iFormEnd=inString(iformStart,strDiv)-1
    while iFormStart < iFormEnd
     iStart=inString(iFormStart,"name=""")
     iEnd=inString(iStart+6,"""")
     mFormName=subString(iStart+6,iEnd-iStart-6)
     iFileNameStart=inString(iEnd+1,"filename=""")
     if iFileNameStart>0 and iFileNameStart<iFormEnd then
     iFileNameEnd=inString(iFileNameStart+10,"""")
     mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
     iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
     iEnd=inString(iStart+4,vbEnter&strDiv)
     if iEnd>iStart then
      mFileSize=iEnd-iStart-4
     else
      mFileSize=0
     end if
     set theFile=new FileInfo
     theFile.FileName=getFileName(mFileName)
     theFile.FilePath=getFilePath(mFileName)
     theFile.FileSize=mFileSize
     theFile.FileStart=iStart+4
     theFile.FormName=FormName
     file.add mFormName,theFile
     else
     iStart=inString(iEnd+1,vbEnter&vbEnter)
     iEnd=inString(iStart+4,vbEnter&strDiv)
    
     if iEnd>iStart then
      mFormValue=subString(iStart+4,iEnd-iStart-4)
     else
      mFormValue="" 
     end if
     form.Add mFormName,mFormValue
     end if
    
     iFormStart=iformEnd+iDivLen
     iFormEnd=inString(iformStart,strDiv)-1
    wend
End Sub

Private Function subString(theStart,theLen)
 dim i,c,stemp
 upfile_5xSoft_Stream.Position=theStart-1
 stemp=""
 for i=1 to theLen
 if upfile_5xSoft_Stream.EOS then Exit for
 c=ascB(upfile_5xSoft_Stream.Read(1))
 If c > 127 Then
 if upfile_5xSoft_Stream.EOS then Exit for
 stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
 i=i+1
 else
 stemp=stemp&Chr(c)
 End If
 Next
 subString=stemp
End function

Private Function inString(theStart,varStr)
 dim i,j,bt,theLen,str
 InString=0
 Str=toByte(varStr)
 theLen=LenB(Str)
 for i=theStart to upfile_5xSoft_Stream.Size-theLen
 if i>upfile_5xSoft_Stream.size then exit Function
 upfile_5xSoft_Stream.Position=i-1
 if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
 InString=i
 for j=2 to theLen
  if upfile_5xSoft_Stream.EOS then 
  inString=0
  Exit for
  end if
  if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
  InString=0
  Exit For
  end if
 next
 if InString<>0 then Exit Function
 end if
 next
End Function

Private Sub Class_Terminate 
 form.RemoveAll
 file.RemoveAll
 set form=nothing
 set file=nothing
 upfile_5xSoft_Stream.close
 set upfile_5xSoft_Stream=nothing
End Sub
 
 
 Private function GetFilePath(FullPath)
 If FullPath <> "" Then
 GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
 Else
 GetFilePath = ""
 End If
 End function
 
 Private function GetFileName(FullPath)
 If FullPath <> "" Then
 GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
 Else
 GetFileName = ""
 End If
 End function

Private function toByte(Str)
 dim i,iCode,c,iLow,iHigh
 toByte=""
 For i=1 To Len(Str)
 c=mid(Str,i,1)
 iCode =Asc(c)
 If iCode<0 Then iCode = iCode + 65535
 If iCode>255 Then
  iLow = Left(Hex(Asc(c)),2)
  iHigh =Right(Hex(Asc(c)),2)
  toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
 Else
  toByte = toByte & chrB(AscB(c))
 End If
 Next
 End function
End Class

Class FileInfo
 dim FormName,FileName,FilePath,FileSize,FileStart
 Private Sub Class_Initialize 
 FileName = ""
 FilePath = ""
 FileSize = 0
 FileStart= 0
 FormName = ""
 End Sub
 
 Public function SaveAs(FullPath)
 dim dr,ErrorChar,i
 SaveAs=1
 if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
 if FileStart=0 or right(fullpath,1)="/" then exit function
 set dr=CreateObject("Adodb.Stream")
 dr.Mode=3
 dr.Type=1
 dr.Open
 upfile_5xSoft_Stream.position=FileStart-1
 upfile_5xSoft_Stream.copyto dr,FileSize
 dr.SaveToFile FullPath,2
 dr.Close
 set dr=nothing 
 SaveAs=0
 end function
End Class
</SCRIPT>

[Ctrl+A 全部选择进行拷贝提示：可先修改部分代码，再点击运行]

2，表单页面index.asp。注意框架包含的上传选择页upload.asp

[Ctrl+A 全部选择进行拷贝提示：可先修改部分代码，再点击运行]

3，上传选择页upload.asp 注意： enctype="multipart/form-data"

[Ctrl+A 全部选择进行拷贝提示：可先修改部分代码，再点击运行]

4，最后一个文件 upfile.asp 主要作用：生成图片名，并将图片上传，同样也要将UBB标签写入index.asp中的textarea中。
（拷贝以下文本框的所有代码）

formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/"

response.write "<body>"

iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName) ''生成一个文件对象
 if file.filesize<100 then
   response.write "请选择你要上传的文件　[ 
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<ins class="adsbygoogle"
     style="display:block; text-align:center;"
     data-ad-format="fluid"
     data-ad-layout="in-article"
     data-ad-client="ca-pub-3021903444118463"
     data-ad-slot="2749611331"></ins>
<script>(adsbygoogle = window.adsbygoogle || []).push({});</script>
 </div>
   
 
 <div class="tags mt10">
<div class="bdsharebuttonbox"><a href="#" class="bds_more" data-cmd="more">分享到：</a><a href="#" class="bds_qzone" data-cmd="qzone" title="分享到QQ空间">QQ空间</a><a href="#" class="bds_tsina" data-cmd="tsina" title="分享到新浪微博">新浪微博</a><a href="#" class="bds_tqq" data-cmd="tqq" title="分享到腾讯微博">腾讯微博</a><a href="#" class="bds_weixin" data-cmd="weixin" title="分享到微信">微信</a><a href="#" class="bds_tieba" data-cmd="tieba" title="分享到百度贴吧">百度贴吧</a><a href="#" class="bds_sqq" data-cmd="sqq" title="分享到QQ好友">QQ好友</a><a href="#" class="bds_copy" data-cmd="copy" title="分享到复制网址">复制网址</a><a href="#" class="bds_print" data-cmd="print" title="分享到打印">打印</a></div>
<script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"32"},"share":{"bdSize":16},"image":{"viewList":["qzone","tsina","tqq","weixin","tieba","sqq","copy","print"],"viewText":"分享到：","viewSize":"16"}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script>
</div>
 
<div class="art_xg">
<h4>您可能想查找下面的文章:</h4><ul>
<li><a href="/program/asp/20175/28179.html" title="ASP脚本组件实现服务器重启" target="_blank">ASP脚本组件实现服务器重启</a></li><li><a href="/program/asp/20175/28333.html" title="ASP无组件分页实现思路及代码" target="_blank">ASP无组件分页实现思路及代码</a></li><li><a href="/program/asp/20175/28350.html" title="ASP wsImage组件添加水印的实用代码" target="_blank">ASP wsImage组件添加水印的实用代码</a></li><li><a href="/program/asp/20175/28377.html" title="手写个小组件(组件入门)asp版" target="_blank">手写个小组件(组件入门)asp版</a></li><li><a href="/program/asp/20175/28455.html" title="asp无组件生成验证码 GIF图片格式" target="_blank">asp无组件生成验证码 GIF图片格式</a></li><li><a href="/program/asp/20175/28492.html" title="asp中判断服务器是否安装了某种组件的函数" target="_blank">asp中判断服务器是否安装了某种组件的函数</a></li><li><a href="/program/asp/20175/28818.html" title="Asp无组件生成缩略图的代码" target="_blank">Asp无组件生成缩略图的代码</a></li><li><a href="/program/asp/20175/29046.html" title="Asp无组件上传进度条解决方案" target="_blank">Asp无组件上传进度条解决方案</a></li><li><a href="/program/asp/20175/29083.html" title="asp代码实现检测组件是否安装的函数" target="_blank">asp代码实现检测组件是否安装的函数</a></li><li><a href="/program/asp/20175/29207.html" title="在ASP中用组件检测当前网卡地址的代码" target="_blank">在ASP中用组件检测当前网卡地址的代码</a></li>
</ul>
</div>
 
<div class="relatedarticle clearfix mt5">
<H2>相关文章</H2>
<ul>
<li><span>2017-05-11</span><a href="/program/asp/20175/29379.html" title="对象标记具有无效的 'MSWC.MyInfo' ProgID" target="_blank">对象标记具有无效的 'MSWC.MyInfo' ProgID</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28530.html" title="ASP URL反编码函数代码" target="_blank">ASP URL反编码函数代码</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28760.html" title="asp伪继承初探_实例代码" target="_blank">asp伪继承初探_实例代码</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28504.html" title="ASP下检测图片木马的函数代码" target="_blank">ASP下检测图片木马的函数代码</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28820.html" title="asp下根据标题生成关键字的代码" target="_blank">asp下根据标题生成关键字的代码</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28733.html" title="ASP Recordset 分页显示数据的方法(修正版)" target="_blank">ASP Recordset 分页显示数据的方法(修正版)</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/29195.html" title="关于ASP代码的加密的几个方法" target="_blank">关于ASP代码的加密的几个方法</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/29458.html" title="ASP编程入门进阶（十六）：FSO组件之驱动器操作" target="_blank">ASP编程入门进阶（十六）：FSO组件之驱动器操作</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/29782.html" title="ASP中通过该日历算法实现的具体代码" target="_blank">ASP中通过该日历算法实现的具体代码</a></li><li><span>2017-05-11</span><a href="/program/asp/20175/28654.html" title="Asp 编码互转的研究和实现代码" target="_blank">Asp 编码互转的研究和实现代码</a></li>
</ul>
</div>

</div>
      </div>
	  
	   <div class="w300 fr">
<div class="subcate bord">
         <div class="asidetit cl"><h3>文章分类</h3></div>
         <div class="subcatec">
          <ul>
     <li><a href='/program/javascript/javascript.html' title="JavaScript">JavaScript</a></li><li><a href='/program/aspx/aspx.html' title="ASP.NET">ASP.NET</a></li><li><a href='/program/php/php.html' title="PHP">PHP</a></li><li><a href='/program/regular/regular.html' title="正则表达式">正则表达式</a></li><li><a href='/program/ajax/ajax.html' title="AJAX">AJAX</a></li><li><a href='/program/jsp/jsp.html' title="JSP">JSP</a></li><li><a href='/program/asp/asp.html' title="ASP">ASP</a></li><li><a href='/program/flex/flex.html' title="Flex">Flex</a></li><li><a href='/program/xml/xml.html' title="XML">XML</a></li><li><a href='/program/skill/skill.html' title="编程技巧">编程技巧</a></li><li><a href='/program/android/android.html' title="Android">Android</a></li><li><a href='/program/swift/swift.html' title="swift">swift</a></li><li><a href='/program/csharp/csharp.html' title="C#教程">C#教程</a></li><li><a href='/program/vb/vb.html' title="vb">vb</a></li><li><a href='/program/vbnet/vbnet.html' title="vb.net">vb.net</a></li><li><a href='/program/c/c.html' title="C语言">C语言</a></li><li><a href='/program/java/java.html' title="Java">Java</a></li><li><a href='/program/delphi/delphi.html' title="Delphi">Delphi</a></li><li><a href='/program/ef/ef.html' title="易语言">易语言</a></li><li><a href='/program/mfc/mfc.html' title="vc/mfc">vc/mfc</a></li><li><a href='/program/embed/embed.html' title="嵌入式开发">嵌入式开发</a></li><li><a href='/program/game/game.html' title="游戏开发">游戏开发</a></li><li><a href='/program/ios/ios.html' title="ios">ios</a></li><li><a href='/program/faq/faq.html' title="编程问答">编程问答</a></li><li><a href='/program/assembly/assembly.html' title="汇编语言">汇编语言</a></li><li><a href='/program/weixin/weixin.html' title="微信小程序">微信小程序</a></li><li><a href='/program/structure/structure.html' title="数据结构">数据结构</a></li><li><a href='/program/opengl/opengl.html' title="OpenGL">OpenGL</a></li><li><a href='/program/enterprise/enterprise.html' title="架构设计">架构设计</a></li><li><a href='/program/qt/qt.html' title="qt">qt</a></li><li><a href='/program/mpweixin/mpweixin.html' title="微信公众号">微信公众号</a></li>
      <div class="clearfix"></div>
          </ul>
          </div>
        </div>  
<div class="tabTitleBar mt10 bgf borderTblue">
<div class="borderTnone pb10 YaHei">
<h4 class="blue">最近更新的内容</h4>
<ul class="newsListA">
<ul>
<li><a href="/program/asp/20175/29054.html" title="asp下用ADODB.Stream代替FSO读取文本文件" target="_blank">asp下用ADODB.Stream代替FSO读取文本文件</a></li>

<li><a href="/program/asp/20175/29064.html" title="再发几个ASP不错的函数" target="_blank">再发几个ASP不错的函数</a></li>

<li><a href="/program/asp/20175/29907.html" title="一段采集程序代码" target="_blank">一段采集程序代码</a></li>

<li><a href="/program/asp/20175/28701.html" title="asp 存储过程分页代码第1/2页" target="_blank">asp 存储过程分页代码第1/2页</a></li>

<li><a href="/program/asp/20175/28304.html" title="Microsoft JET Database Engine(0x80004005)未指定错误的解决方法" target="_blank">Microsoft JET Database Engine(0x80004005)未指定错误的解决方法</a></li>

<li><a href="/program/asp/20175/28511.html" title="服务器XMLHTTP(Server XMLHTTP in ASP)基础知识" target="_blank">服务器XMLHTTP(Server XMLHTTP in ASP)基础知识</a></li>

<li><a href="/program/asp/20175/29403.html" title="如何从数据库中随机取出10条记录的方法" target="_blank">如何从数据库中随机取出10条记录的方法</a></li>

<li><a href="/program/asp/20175/28986.html" title="易心asp分页类 v1.0" target="_blank">易心asp分页类 v1.0</a></li>

<li><a href="/program/asp/20175/29513.html" title="关于网站文件自动备份程序的一点思考" target="_blank">关于网站文件自动备份程序的一点思考</a></li>

<li><a href="/program/asp/20175/28655.html" title="asp 隐藏并修改文件的最后修改时间" target="_blank">asp 隐藏并修改文件的最后修改时间</a></li>
</ul>
</ul>
</div>
</div>                      
      </div>
      </div>
</div>
<div id="footer">
<div class="main clearfix">
<p>
<a href="http://www.linkedu.com/about/about.html" target="_blank">关于我们</a> - 
<a href="http://www.linkedu.com/about/linkus.html" target="_blank">联系我们</a> -  
<a href="http://www.linkedu.com/about/disclaimer.html" target="_blank">免责声明</a> -  
<a href="http://www.linkedu.com/about/index.html" target="_blank">网站地图</a>

</p>
<p>©2020-2025  All Rights Reserved. linkedu.com 版权所有 </p>
</div>
</div>
<script type=text/javascript src="/template/js/common.js"></script>

</div>
</body>
</html>