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

日期：2020-05-13 栏目：程序人生浏览：次

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

</div>
      
    <div class="pagess">
    <ul>
    <li><a>共3页: </a></li><li><a href='#'>上一页</a></li><li class="thisclass"><a href='#'>1</a></li><li><a href='3299_2.html'>2</a></li><li><a href='3299_3.html'>3</a></li><li><a href='3299_2.html'>下一页</a></li>
   </ul>
  </div>
      
      <div class="post-nav">
        <div class="nav-left">上一篇：<a href='/3298.html'>实例学习如何在ASP中调用DLL</a> </div>
        <div class="nav-right">下一篇：<a href='/3300.html'>ASP调用存储过程的技巧</a> </div>
      </div>
      <div class="post-copyright">
        <p>内容版权声明：除非注明，否则皆为本站原创文章。</p>
        <p>转载注明出处：<a href="http://www.heiqu.com/3299.html" title="无组件上传图片之文件采用方案" target="_blank">http://www.heiqu.com/3299.html</a></p>
      </div>
      <section class="related">
        <h3>相关推荐</h3>
        <ul>
         <li><i>2021-04-09</i><span class="top">1</span><a href="/pszzg.html" target="_blank" title="vue.js在标签属性中插入变量参数的方法">vue.js在标签属性中插入变量参数的方法</a></li>
<li><i>2021-04-09</i><span class="top">2</span><a href="/pszwp.html" target="_blank" title="cli 打包时抽离项目相关配置文件详解">cli 打包时抽离项目相关配置文件详解</a></li>
<li><i>2021-04-09</i><span class="top">3</span><a href="/pszwj.html" target="_blank" title="解决iview打包时UglifyJs报错的问题">解决iview打包时UglifyJs报错的问题</a></li>
<li><i>2021-04-09</i><span class="top">4</span><a href="/pszww.html" target="_blank" title="<strong>Ubuntu 编译运行C笔记</strong>"><strong>Ubuntu 编译运行C笔记</strong></a></li>
<li><i>2021-04-09</i><span class="top">5</span><a href="/pszyx.html" target="_blank" title="Android 多线程断点续传下载器">Android 多线程断点续传下载器</a></li>

</ul>
      </section>

</article>
  </main>
  <aside class="sidebar">
    <section class="widget" id="divSearchPanel">
      <h3><i class="icon-th-list"></i> 搜索</h3>
      <div>
        <form  name="formsearch" action="/plus/search.php">
          <input type="text" name="q" size="11"   type="text" id="search-keyword" value="" onfocus="if(this.value=='在这里搜索...'){this.value='';}"  onblur="if(this.value==''){this.value='在这里搜索...';}" />
          <input type="submit" value="搜索" />
        </form>
      </div>
    </section>
    <section class="widget" id="scroll">
      <h3><i class="icon-th-list"></i> 热门文章</h3>
      <ul class="hot-post">
        <li>
          <div class="thumb"><a href="/7450367b35f63929c367ba5177eebece.html" title="PHP连接SQLSERVER 注意事项(附dll文件下载)"><img src="/images/random/tb13.jpg" alt="PHP连接SQLSERVER 注意事项(附dll文件下载)"/></a></div>
          <div class="hot-title"><a href="/7450367b35f63929c367ba5177eebece.html" title="PHP连接SQLSERVER 注意事项(附dll文件下载)">PHP连接SQLSERVER 注意事项(附dll文件下载)</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-10-12</div>
        </li>
<li>
          <div class="thumb"><a href="/0e10857252105e3e6010fdab5fcafa04.html" title="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"><img src="/uploads/allimg/200727/0H3026410_lit.jpg" alt="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"/></a></div>
          <div class="hot-title"><a href="/0e10857252105e3e6010fdab5fcafa04.html" title="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"><strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong></a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-01-24</div>
        </li>
<li>
          <div class="thumb"><a href="/ade0a61af45be9a357a9ea7a656c51a2.html" title="自动构建平台jenkins使用"><img src="/images/random/tb4.jpg" alt="自动构建平台jenkins使用"/></a></div>
          <div class="hot-title"><a href="/ade0a61af45be9a357a9ea7a656c51a2.html" title="自动构建平台jenkins使用">自动构建平台jenkins使用</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-07-27</div>
        </li>
<li>
          <div class="thumb"><a href="/f199a1e391c7ca83f842617a1deb34b0.html" title="vue发送ajax请求详解"><img src="/images/random/tb1.jpg" alt="vue发送ajax请求详解"/></a></div>
          <div class="hot-title"><a href="/f199a1e391c7ca83f842617a1deb34b0.html" title="vue发送ajax请求详解">vue发送ajax请求详解</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-12-22</div>
        </li>
<li>
          <div class="thumb"><a href="/d27832c83a4f674e4abd0c288bcdc73a.html" title="详解jQuery中的prop()使用方法"><img src="/images/random/tb4.jpg" alt="详解jQuery中的prop()使用方法"/></a></div>
          <div class="hot-title"><a href="/d27832c83a4f674e4abd0c288bcdc73a.html" title="详解jQuery中的prop()使用方法">详解jQuery中的prop()使用方法</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-10-10</div>
        </li>

</ul>
    </section>
    <section class="widget">
      <h3><i class="icon-th-list"></i> 热评文章</h3>
      <ul class="hot-post">
        <li>
          <div class="thumb"><a href="/pszzg.html" title="vue.js在标签属性中插入变量参数的方法"><img src="/uploads/allimg/200606/1Q9303356_lit.jpg" alt="vue.js在标签属性中插入变量参数的方法"/></a></div>
          <div class="hot-title"><a href="/pszzg.html" title="vue.js在标签属性中插入变量参数的方法">vue.js在标签属性中插入变量参数的方法</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszwp.html" title="cli 打包时抽离项目相关配置文件详解"><img src="/uploads/allimg/200606/1QU0JK_lit.jpg" alt="cli 打包时抽离项目相关配置文件详解"/></a></div>
          <div class="hot-title"><a href="/pszwp.html" title="cli 打包时抽离项目相关配置文件详解">cli 打包时抽离项目相关配置文件详解</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszwj.html" title="解决iview打包时UglifyJs报错的问题"><img src="/uploads/allimg/200606/1QP13141_lit.jpg" alt="解决iview打包时UglifyJs报错的问题"/></a></div>
          <div class="hot-title"><a href="/pszwj.html" title="解决iview打包时UglifyJs报错的问题">解决iview打包时UglifyJs报错的问题</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszww.html" title="<strong>Ubuntu 编译运行C笔记</strong>"><img src="/images/random/tb7.jpg" alt="<strong>Ubuntu 编译运行C笔记</strong>"/></a></div>
          <div class="hot-title"><a href="/pszww.html" title="<strong>Ubuntu 编译运行C笔记</strong>"><strong>Ubuntu 编译运行C笔记</strong></a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszyx.html" title="Android 多线程断点续传下载器"><img src="/uploads/allimg/200606/1Q6126310_lit.png" alt="Android 多线程断点续传下载器"/></a></div>
          <div class="hot-title"><a href="/pszyx.html" title="Android 多线程断点续传下载器">Android 多线程断点续传下载器</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>

</ul>
    </section>
    
  </aside>
</div>
<footer class="footer">

<p>Copyright © 2020 黑区网络 版权所有 longwanglaozi@gmail.com 主题由 <a href="http://www.heiqu.com" title="黑区网络" target="_blank">黑区网络</a> 制作.  ICP备案:<a href="https://beian.miit.gov.cn/" target="_blank"> 京ICP备14015190号-4</a></p>

<p>友情链接：<a href="http://www.fulingjiang.cn" title="傅令江的个人博客" target="_blank">傅令江的个人博客</a> </p>

</div>

</footer>

$(document).ready(function(){

$(".post .thumb img,.entry img").lazyload({

placeholder : "/style/images/grey.gif",

effect      : "fadeIn"

});

</script>