二文件上传,才30行代码

发表日期：2001-2-19

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

<%
' upload.asp
Function IntMin(n,y)
    If n<y and n>0 Then
        IntMin=Int(n)
    ElseIf y>0 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 formSize>0
        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就是表单名啦~
%>

关注此文的读者还看过：
·2012-5-17 10:56:51 利用ASP在线维护数据库
·2012-5-17 10:56:48 用EasyMailObject组件处理Exchange邮件源代码(7)
·2012-5-17 10:56:23 采用XMLHTTP编写一个天气预报的程序
·2012-5-17 10:55:43 ASP利用prototype和Google的weather api做天气预报
·2012-5-17 10:54:50 使用 ASP+ 列表绑定控件（下）
·2012-5-17 10:53:21 SQL SERVER结构浏览器
·2012-5-17 10:51:50 用Access制作一个功能完善的论坛（源程序）
·2012-5-17 10:51:29 用ASP开发一个在线考试程序（二）
·2012-5-17 10:49:30 用ASP开发一个在线考试程序（六）

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元
·Android或QT软硬件平台设计（工
·网站首页FLASH
·网站PSD稿设计
·企业网站整站网页设计（美观大气
·网站页面设计及套入程序
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·PPT设计

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP实例>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发