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

  • A+
所属分类:lcx

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

文章来源于lcx.cc:【Asp】ASP二进制输出1*1空白小图

相关推荐: 如何让远程桌面断开后自动注销?

    当您对独享服务器时,可能会遇到由于本地到服务器端网络不稳定、客户端主机突然死机等原因造成远程桌面突然断开,并尝试多次连接后仍然中断,却又达到最大远程桌面连接数后,只能通过重启服务器来解决的问题(站长补充:实际上使用“mstsc.exe /console…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: