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

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