二文件上传,才30行代码

2016-01-29 17:25 9 1 收藏

二文件上传,才30行代码,二文件上传,才30行代码

【 tulaoshi.com - ASP 】

  <%
' upload.asp
Function IntMin(n,y)
    If n<y and n0 Then
        IntMin=Int(n)
    ElseIf y0 Then
        IntMin=Int(y)
    Else
        IntMin=n
    End If
End Function

Function getFormValue(Name)
    Dim formSize,formData,DataHeader,DataStart,DataEnd,formNameStart,formNameEnd,formName,firstFilter
    formSize=Request.TotalBytes()
    formData=Request.BinaryRead(formSize)
    firstFilter=true
        For i=1 to Len(Name)
            tmp=tmp&ChrB(AscB(Mid(Name,i,1)))
        Next
    Name=tmp
    DataEnd=0
    DataStart=0
    Do While formSize0
        formData=RightB(formData,formSize-DataEnd-DataStart+1)
        formSize=formSize-DataEnd-DataStart+1
        DataHeader=LeftB(formData,InStrB(formData,Chrb(13)&Chrb(10))-1)
        DataStart=InStrB(formData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))+4
        DataEnd=InStrB(DataStart+1,formData,DataHeader)-DataStart
            If DataStart<0 or DataEnd<=0 Then Exit Do
        filteredData=MidB(formData,DataStart,DataEnd-1)
        formNameStart=InStrB(formData,ChrB(AscB("n"))&ChrB(AscB("a"))&ChrB(AscB("m"))&ChrB(AscB("e"))&ChrB(AscB("="))&ChrB(AscB("""")))+6
        formNameEnd=intMin(InStrB(formNameStart,formData,ChrB(13)&ChrB(10))-formNameStart-1,InStrB(formNameStart,formData,ChrB(AscB(";")))-formNameStart-1)
        formName=MidB(formData,formNameStart,formNameEnd)
            If Name=formName Then
                getFormValue=filteredData
                Exit Function
            End If
    Loop
getFormValue=Name&" Not Found!"
End Function
Response.binaryWrite(getFormValue("loadfromfile"))'这个loadfromfile就是表单名啦~
%



 

来源:http://www.tulaoshi.com/n/20160129/1501279.html

延伸阅读
标签: excel
excel 2003文件打开方法   双击Excel文件 单击菜单→ 或单击工具栏上的按钮 Excel 2003固定表头设置   有时候我们在Excel中统计数据时希望将表头一些固定名称不动,然后滚动下面的数据来光看数据。比如下图所示的成绩单,我们希望将上面的成绩单和姓名、语文、数学等各科目数据固定起来,然后滚动查看TuLaoS...
标签: 电脑入门
Microsoft Office PowerPoint 2007 相信很多朋友都不会陌生了,除了诸多功能上的改进外,对于文件格式,相比以前的版本,也有所变化了。下面,就简单罗列下 PowerPoint 2007 的文件格式: 1、PowerPoint 2007 演示文稿 (*.pptx) 2、启用了宏的 PowerPoint 2007 演示文稿 (*.pptm) 3、PowerPoint 2007 模板 (*.potx) 4、启用了宏的PowerPoint...
360文件恢复方法教程 当大家发现文件被误删或者丢失的情况时,千万不要再去频繁的去对丢失文件所在的磁盘进行擦写操作,避免降低文件可恢复的可能性。首先我们打开360安全卫士,找到功能大全区域,点击更多选项。 1 图1 360安全卫士 在功能大全界面下,找到文件恢复图标;如果没有的话可以在下面的未添加功能列表中找到...
360文件管理器简介 文件分类,极速扫描 快速扫描手机文件,按图片、音乐、视频、文档、安装包、压缩包等类型整理分类,一目了然,方便查找。 新文件标识,轻松找到新增文件 对新增照片及其他文件添加NEW标识,轻松找到拍照照片、录像、录音、蓝牙传输、下载文件等新增加的文件。 清理文件,让垃圾文件无处藏身...
标签: PHP
  文件提交页面既已生成,下面任务就很明确了:将提交的文件内容保存到服务器上。 下面我们用两种方法来实现这个功能: 1. 用 PHP 来保存: 我们先定义一个文件保存函数 fup() 它有两个参数:      $filename: 文件内容      $fname: 文件名(包含路径) 剩下的就是写一个循环...

经验教程

691

收藏

33
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部