将16进制代码用vbscript输出为图片的实现方法

<%
Function getByteString(sStr)
Dim I,sB,C
For I=1 to Len(sStr)
    C=Mid(sStr,I,1)
    sB=sB&ChrB(AscB(C))
Next
getByteString=sB
End Function
'-----------------------------用winHex可以抓
str1="%47%49%46%38%39%61%0B%00%0B%00%D5%00%00%00%00%00%FF%FF%FF%00%94%00%00%8C%00%21%B5%21%21%AD%21%21%AD%18%21%AD%10%29%B5%18%29%AD%18%42%D6%31%4A%D6%29%5A%DE%29%5A%DE%21%63%DE%21%73%E7%18%7B%E7%18%8C%EF%10%94%F7%08%94%F7%10%9C%F7%10%9C%EF%18%9C%F7%08%A5%F7%08%A5%EF%18%A5%EF%21%A5%EF%10%AD%F7%08%AD%EF%10%C6%FF%00%CE%FF%00%D6%FF%00%E7%FF%00%EF%FF%00%E7%F7%08%F7%FF%00%FF%FF%FF%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%21%F9%04%01%00%00%24%00%2C%00%00%00%00%0B%00%0B%00%00%06%4E%40%92%10%51%20%14%0A%C2%24%E9%F0%69%0A%94%42%83%E7%42%79%0A%13%06%43%A2%23%99%0C%8E%05%43%D3%B3%89%40%34%98%CC%C0%D0%B1%48%CC%8F%C6%42%31%48%8C%46%20%48%5C%14%0A%D5%07%80%1C%0E%0C%80%80%49%03%15%73%03%50%24%03%7D%22%8B%50%85%86%42%41%00%3B"
str2="%47%49%46%38%39%61%0B%00%0B%00%C4%00%00%00%00%00%FF%FF%FF%00%8C%00%21%AD%21%21%AD%18%29%AD%18%42%D6%31%4A%D6%29%5A%DE%21%73%E7%18%7B%E7%18%8C%EF%10%94%F7%08%9C%F7%08%A5%EF%18%A5%EF%21%A5%EF%10%AD%F7%08%C6%FF%00%CE%FF%00%D6%FF%00%E7%FF%00%EF%FF%00%E7%F7%08%F7%FF%00%FF%FF%FF%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%21%F9%04%01%00%00%19%00%2C%00%00%00%00%0B%00%0B%00%00%05%2D%60%26%8E%64%69%9E%65%41%0C%6C%DB%12%14%35%45%50%ED%3C%02%21%35%CC%A2%24%88%83%41%50%C0%60%2A%C8%CB%C5%62%21%0A%9E%D0%28%6A%4A%35%85%00%00%3B"
str17=""
str18=""
str19=""
str20=""
FileType = Request.QueryString("FileType")
If Len(FileType)=0 Then FileType="-"
Select Case FileType
Case "+"
    str=str1
Case "-"
    str=str2
End Select
Response.BinaryWrite(getByteString(unescape(str)))
%>

你可能感兴趣的:(VBScript)