请各位帮忙看看这段代码,哪里写错了啊!我是在做一个将图片和说明性文字一起上传的页面,这里是定义的一个函数。但是我点上传的时候却是一段乱码,不知道是哪里错了,请大家帮帮忙。
<%
Dim BuffData
Function RevInit()
response.buffer=true
BuffData=request.binaryread(request.totalbytes)
End function
Function RevForm(Var)
mcrlf=chrb(13) & chrb(10)
mdivider=mcrlf & chrb(&h2d)
mleader="Content-Disposition"
mpadding=13
RevForm=vbnullstring
Dim iHeader,iComment,icontent,iTemp,iTemp2'段头,段描述,段内容
iTemp=1
Response.BinaryWrite BuffData
Do
If iTemp>=Len(BuffData) Then Exit do
iHeader=instrb(iTemp,BuffData,mdivider)+Len(mdivider)
If iheader<=0 Then Exit Do
iHeader=iHeader+mpadding+2
iComment=instrb(iHeader+1,BuffData,mcrlf)
If iComment<=0 Then Exit Do
RevForm=midb(BuffData,iHeader,iComment-iHeader)'读到段头
iTemp=instrb(1,RevForm,"name=" & """" & Var & """",vbTextCompare)
icontent=instrb(iComment+2,BuffData,mdivider)
If icontent<=0 Then Exit Do
If iTemp>0 then'如果这个段就是需要找的段
iComment=instrb(iTemp+1,BuffData,mcrlf & mcrlf)'找到描述头
RevForm=midb(BuffData,iTemp+2,icontent-iTemp-2)'找到内容
Exit do
End If
iTemp=icontent+Len(mdivider)+mpadding
loop
End Function
%>