| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1010 人关注过本帖
标题:简化的ASP无组件上传(主要针对于不喜欢用上传类的程序员)
只看楼主 加入收藏
anlige
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:401
专家分:0
注 册:2006-11-3
结帖率:100%
收藏
 问题点数:0 回复次数:1 
简化的ASP无组件上传(主要针对于不喜欢用上传类的程序员)
有人嫌无组件上传类太大(我的上传类是13.8KB大小),下面就写了个简单的单文件上传的示例,顺便把无组件上传的原理也写在代码里面了。下面的示例适合在iframe或者弹出窗口中调用。不过,还是推荐大家用完整的类进行上传,完整的类在功能、易用性以及安全性上都比较好。

http://www.

程序代码:
<form action="?action=upload" method="post" enctype="multipart/form-data">
选择文件:<input type="file" name="file1" /> <input type="submit" value="提交" /
</form><br />
<%
If request.QueryString("action")="upload" Then
    Call doUpload("upload")
End If

Function doUpload(Byval savePath)
    Dim vData, vSplit, SplitStart, SplitEnd, ValueEnd, path, value
    Dim vdata1, Str, FormNameStart, FormNameEnd, FormName, FileNameStart, FileNameEnd, FileName, ContentType
    vData = request.BinaryRead(request.TotalBytes)
    SplitStart = instrb(vData,chrb(13) & chrb(10))    '找到分隔字符串的位置
    vSplit = midb(vData, 1, SplitStart - 1)                '取出分隔符
    SplitEnd = instrb(vData,chrb(13) & chrb(10) & chrb(13) & chrb(10)) '找到文件数据的开始位置
    
    '读出数据前面的描述部分,类似于
    'Content-Disposition: form-data; name="file1"; filename="D:\TempFiles\a.jpg"
    'Content-Type: image/pjpeg
    vdata1 = midb(vData,SplitStart + 2,SplitEnd - SplitStart - 2)
    str = BinToGB(vdata1) 
    FormNameStart = instr(1,str,"name=""") + 6
    FormNameEnd = instr(FormNameStart,str,"""")
    FormName = Mid(str,FormNameStart,FormNameEnd-FormNameStart) '读出表单名字
    
    FileNameStart = instr(1,str,"filename=""")+10
    FileNameEnd = instr(FileNameStart,str,"""")
    FileName = Mid(str,FileNameStart,FileNameEnd-FileNameStart) '读出文件在客户端的路径
    FileName = Replace(FileName,"/","\")
    FileName = split(FileName,"\")(ubound(split(FileName,"\"))) '读出文件名字
    
    SplitEnd = SplitEnd + 4                             '数据真正开始的位置
    ValueEnd = instrb(SplitEnd,vData,vSplit)            '找到数据结束位置
    value = midb(vData,SplitEnd,ValueEnd-SplitEnd-2)            '取出数据
    
    '保存文件的代码,因为stream直接写入value会出错,因此用adodb.recordset转换一下
    Dim tmpStrm
    Set tmpStrm = server.CreateObject("adodb.stream")
    tmpStrm.mode=3
    tmpStrm.type= 1
    tmpStrm.open()
    Dim Info : Set Info = server.CreateObject("ADODB.Recordset")
    Info.Fields.Append "value", 205,-1
    Info.open()
    Info.addNew()
    Info("value").appendChunk(value)
    tmpStrm.write(Info("value"))
    Info("value").appendChunk(null)
    Info.update()
    Info.Close()
    Set Info = Nothing
    tmpStrm.saveToFile server.MapPath(savePath) & "\" & FileName,2  '以原文件名保存到upload下面
    tmpStrm.close()
    Set tmpStrm = Nothing
    doUpload = FileName
End Function

'二进制转GB函数
Function BinToGB(Bin)
    Dim i,tAsc,str
    for i=1 to lenb(Bin)
        tAsc = ascb(midb(bin,i,1))
        if tAsc<128 Then
            str = str & chr(tAsc)
        Else
            i = i+1
            str = str & chr(clng("&H" & hex(tAsc) & hex(ascb(midb(bin,i,1)))))
        End if
    Next
    BinToGB = str
End Function
%>
搜索更多相关主题的帖子: ASP 组件 程序员 
2009-12-21 13:19
求学中国
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-15
收藏
得分:0 
你太有才了,喜欢
2010-05-15 23:06
快速回复:简化的ASP无组件上传(主要针对于不喜欢用上传类的程序员)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044088 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved