二文件上传,才30行代码

　　<%
upload.asp
Function IntMin(n,y)
0 Then
IntMin=Int(n)
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=tmpChrB(AscB(Mid(Name,i,1)))
Next
Name=tmp
DataEnd=0
DataStart=0
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就是表单名啦~
%>