【Asp】ASP二进制输出1*1空白小图

ASP二进制输出1*1空白小图：

<%
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("424D3A000000000000003600000028000000010000000100000001001800000000000400000000000000000000000000000000000000FFFFFF00")))
Response.End
%>