ASP实现无组件文件上传的代码

注意form中要加属性 enctype="multipart/form-data"
其实可以这样测试数据

datalen=request.totalbytes
formdata=request.binaryread(datalen)
response.binarywrite formdata

就知道数据的格式了。

<!--#include file="conn.asp"-->
<%
Function str2bin(varstr)
str2bin=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
varasc = Asc(varchar)
' asc对中文字符求出来的值可能为负数，
' 加上65536就可求出它的无符号数值
' -1在机器内是用补码表示的0xffff,
' 其无符号值为65535,65535=-1+65536
' 其他负数依次类推。
If varasc<0 Then
varasc = varasc + 65535
End If
'对中文的处理：把双字节低位和高位分开
If varasc>255 Then
varlow = Left(Hex(Asc(varchar)),2)
varhigh = right(Hex(Asc(varchar)),2)
str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
Else
str2bin = str2bin & chrB(AscB(varchar))
End If
Next
End Function

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
%>

<%

datalen=request.totalbytes '获得数据大小
formdata=request.binaryread(datalen) '读取原始数据
strformdata=bin2str(formdata)
divstr=LeftB(formdata,InStrB(FormData,str2bin(VbCrLf))-1) '这个是数据的分隔符，
随机生成的，可以自己试验
divlen=LenB(divstr)

lngFileNameStart=Instr(strformdata,"filename="&chr(34))+Len("filename="&chr(34)
)
lngFileNameEnd=Instr(lngFileNameStart,strformdata,chr(34))
strFileName=Mid(strformdata,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString) '获得文件名

set objStream=Server.CreateObject("ADODB.Stream")
set objStream1=Server.CreateObject("ADODB.Stream")

objStream.Type=1
objStream1.Type=1
objStream.Mode=3
objStream1.Mode=3
objStream.Open 'formdata
objStream1.Open
'objStream.Type =1 'adTypeBinary
objStream.Write formdata
objStream.Position=DataStart-1
objStream.CopyTo objStream1,DataSize

objStream1.SaveToFile Server.MapPath("image/" & filename)
objStream.Close
objStream1.close
%>