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
%>