[求助]如何取出二进制中的文本字段？

[复制链接]

莣囨孓love

电梯直达

1^#

发表于 2010-1-19 23:28:49 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
'这是文件的上传，我的表单还有其他内容，如何能够同时上传？
'目的：将二进制字符转换成普通字符,用于附件上传
Response.Expires=0
Function f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Else
iRe = iRe & Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function

set iConcStr=server.CreateObject("adodb.connection")
iConcStr.open"Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=sjkgl;Password=sjkgl;Data Source=ljl"
iSql="select * from wtgl_fj"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3

iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
[知识问答 ωωω.χiuGoo.сom]
iFn = Left(iStr, iPos3)

If iFn <> "" Then
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,"\"))
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("type") = Mid(iStr, iPos3 +18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
session("pd")="1"
session("fname")=iFn
End If
End If
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
session("id")=iRe("id")
iRe.close
set iRe=Nothing

%>
而且这个上传以后文件的类型不能很好的保存，有知道的麻烦指点一下！

收藏0