<%
function ss(varstr)
bb = ""
for i = 1 to len(varstr)/2
varchar = "&h" & mid(varstr, 2*i-1, 2)
bb=bb & chr(varchar)
next
ss = bb
end function
function stob(varstr)
str2bin = ""
for i = 1 to len(varstr)
varchar = mid(varstr, i, 1)
str2bin = str2bin & chrb(ascb(varchar))
next
stob = str2bin
end function
img="00001414faf5f0fb6df0fbadf0fbdd801bfc70e71fe07ce7d0bbfbd0dbfbb0d7fd70b7fdb077f5d0fbebe0fbdbf01ce780c71c70f7fdf0f7bff0f65df0f5edf00"
response.contenttype="image/vnd.wap.wbmp"?
response.binarywrite stob(ss(img))?
%>
?
个人存档.仅供个人研究.看不懂的不要问我.
