一、图片转换为十六进制数组合字符串

Function BinVal(bin)

 Dim ret    ret=0  For i=LenB(bin) To 1 step-1   ret=ret*256+AscB(MidB(bin,i,1))  Next    BinVal=ret End Function

 

Function ReadBinFile(fileName)

 Dim objStream,bFlag,Pic16    Pic16=""    Set objStream=Server.CreateObject("ADODB.Stream")  objStream.Open  objStream.Type=1  objStream.LoadFromFile fileName    Do While Not objStream.Eos   bFlag=objStream.Read(1)      If BinVal(bFlag)<=15 Then    Pic16=Pic16&"0"& Hex(BinVal(bFlag))   Else    Pic16=Pic16& Hex(BinVal(bFlag))   End If  Loop    objStream.Close    ReadBinFile=Pic16 End Function

Dim HexStr

HexStr=ReadBinFile("图片绝对路径")

Response.Write HexStr

 

 

一、十六进制数组合字符串转换为图片

Function GetByteString(Str) '转换

 Dim I    For I=1 to Len(Str)   GetByteString=GetByteString&ChrB(AscB(Mid(Str,I,1)))  Next End Function   Function MakeStr(Str) '截取字符  Dim I    For I=0 To Len(Str)/2   MakeStr=MakeStr&"%"&Mid(Str,I*2+1,2) '每次截取两位  Next End Function

Response.BinaryWrite GetByteString(unescape(MakeStr(HexStr)))