关于asp中无组件上传的笔记

很久没有做asp的东西了，今天老婆又让帮她做个东西，翻出来，发现已经不会了（从学校毕业后就没动过一点）。

 

要做个无组件上传的的东西，原来写过一个东西，现在找不到了。

 

还得从头再来，上网去找还真不少，呵呵

找到一个ASP实例:6行代码实现无组件上传（）

 

  upload.asp文件
  <%
  Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
  Else
   GetFileName = ""
  End If
  End  function

  strFileName = Request.Form("file1")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile strFileName
  objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
  objStream.Close
  %>

  upload.htm文件
 

　　
    
 

就这么点儿，我记得当时我可是写了很多东西的。先试试看再说。

在本机运行，很好用。后来感觉还是不对，这个东西只能是在自己的服务器上面来用，LoadFromFile 这个函数没办法从远端读取文件的，我文件已经在服务器上了，还用的着这个东西来“脱了裤子放屁”啊，晕。这种东西应该会害人的，尤其是新手。

继续找：发现了http://blog.csdn.net/faintbear/archive/2004/10/15/138034.aspx这篇文章，隐约想起了原来自己的东西，呵呵，都是2004的文章，我也是在2004年时做的asp，物是人非啊

决定自己再来实现一下这个东西。

 

这其中的到了如下网址的帮助，在此表示感谢

http://www.cnblogs.com/bluearrowGZ/archive/2008/02/25/1080017.html（关于上传大小的限制）

（adodb.stream write时报错的原因）

最后就是这次写完后，一定要传到svn上，再不让它丢了。