神马品牌网我爱台妹在线:怎么用asp把一个地址的文件转换成二进制?
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 20:14:57
我准备用ASP把一个如下的地址：
http://img.baidu.com/img/logo-zhidao.gif
用asp转换成Binary（二进制）赋给变量。
注意:是把地址中的文件转换成二进制噢!
http://img.baidu.com/img/logo-zhidao.gif
用asp转换成Binary（二进制）赋给变量。
注意:是把地址中的文件转换成二进制噢!
//调该方法传递参数“https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/img/logo-zhidao.gif“给varstr
Function str2bin(varstr)
str2bin=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
varasc = Asc(varchar)
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(Asc(varchar))
End If
Next
End Function