18 lines
665 B
JavaScript
18 lines
665 B
JavaScript
var IEBinaryToArray_ByteStr_Script =
|
|
"<!-- IEBinaryToArray_ByteStr -->\r\n"+
|
|
"<script type='text/vbscript'>\r\n"+
|
|
"Function IEBinaryToArray_ByteStr(Binary) : IEBinaryToArray_ByteStr = CStr(Binary) : End Function\r\n"+
|
|
"Function IEBinaryToArray_ByteStr_Last(Binary)\r\n"+
|
|
" Dim lastIndex\r\n"+
|
|
" lastIndex = LenB(Binary)\r\n"+
|
|
" if lastIndex mod 2 Then\r\n"+
|
|
" IEBinaryToArray_ByteStr_Last = Chr( AscB( MidB( Binary, lastIndex, 1 ) ) )\r\n"+
|
|
" Else\r\n"+
|
|
" IEBinaryToArray_ByteStr_Last = "+'""'+"\r\n"+
|
|
" End If\r\n"+
|
|
"End Function\r\n"+
|
|
"</script>\r\n";
|
|
|
|
document.write(IEBinaryToArray_ByteStr_Script);
|
|
|