myUpload version 1.0 build 1

额最近写点东西充实一下吧,天天打DOTA打的牙都要掉了.

写个upload上传工具,先从asp起吧.

因为要写AJAX上传的,所以先搞清楚ASP的写法.

查了一堆资料,总结了一下,写个DEMO,当然是纯属自己捏造出来的,不过效果还凑活.

其实很简单,

代码如下:

HTML注意上传写好

enctype="multipart/form-data"
否则就不行了
<body>

<form action="upload2.asp" method="post" enctype="multipart/form-data">

<input name="file1" type="file" />
<input name="" type="submit" />
</form>
</body>

 

下面无非是得到文件,

然后用adodb.stream的特性,进行把上传信息垃圾的部分抹掉

<%
    dim f
    f = request.BinaryRead(Request.TotalBytes)
    set obj = Server.CreateObject("adodb.stream")
    set o = Server.CreateObject("adodb.stream")
    
    
    
    
    dim break : break = chrb(13) & chrb(10) & chrb(13) & chrb(10)
    dim ereak : ereak = chrb(13) & chrb(10) & chrb(45)
    dim bpos : bpos = instrb(f,break)
    dim epos : epos = instrb(f,ereak)

    
    obj.type = 1
    obj.mode = 3
    obj.open
    
    o.type = 1
    o.mode = 3
    o.open
    
    obj.write f
    obj.position = bpos+3
    obj.copyto o,epos-bpos-4
    
    o.savetofile Server.MapPath("a.txt")
    
    obj.close
    o.close
    set obj = nothing
    set o = nothing
    
%>

好啦,so easy.

接下来就搞如何用AJAX上传咯

 

参考资料:

http://www.leadbbs.com/MINI/Default.asp?230-1161520-0-0-0-0-0-a-.htm

http://topic.csdn.net/t/20020311/10/567553.html

http://wenku.baidu.com/view/2ed2b7c6bb4cf7ec4afed0e1.html?from=rec&pos=1&weight=24&lastweight=18&count=5

http://wenku.baidu.com/view/10c467f9fab069dc502201a8.html

http://blog.sina.com.cn/s/blog_57bc8e94010006rl.html

http://baike.baidu.com/view/1806836.htm

posted @ 2012-03-01 00:32  M80sic  阅读(149)  评论(0)    收藏  举报