| ||
<!DOCTYPE HTML Public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<HEAD>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<TITLE>Bytearray - test of Simplified Chinese, iso-ir-58 </TITLE>
<HTA:APPLICATION ID="BAChinese" APPLICATIONNAME="BAChinese" CAPTION="yes" ICON="" SHOWINTASKBAR="yes" SINGLEINSTANCE="no" SYSMENU="yes" SCROLLBAR="no">
</head>
<body>
<h1>Bytearray - test of Simplified Chinese, iso-ir-58</h1>
<script language="vbscript">
Dim Data, Chinesetext, base64Text
'Select any Chinese text
'Chinesetext = "Some text with chinese characters"
'or we can use something from Base64
Chinesetext = GetSomeChinessetext
'Write the text
document.write "Chinese text:<br>"
document.write Chinesetext
'Convert the text to iso-ir-58 binary data
Set Data = CreateObject("ScriptUtils.ByteArray")
Data.CharSet = "iso-ir-58"
Data.String = Chinesetext
'Write the data as a base-64 string
document.write "<br><br>base 64 encoded text in iso-ir-58 charset:<br>"
base64Text = Data.Base64.String
document.write base64Text
'Create a second bytearray to convert base64 data back
Set Data2 = CreateObject("ScriptUtils.ByteArray")
Data2.CharSet = "iso-ir-58"
'Convert the base-64 data to a binary data
Data2.Base64 = base64Text
document.write "<br><br>Base 64 string converted back:<br>"
'Write the data as an UNICODE string
document.write Data2.String
Function GetSomeChinessetext
Dim BA
Set BA = CreateObject("ScriptUtils.ByteArray")
BA.Base64 = "v8a8vLK8vta199X70+u53MDttLTQwg=="
BA.CharSet = "iso-ir-58"
GetSomeChinessetext = BA.String
End Function
</script>
</body>
</html> |
|
| ||
<%
'Convert string between windows-1250 and iso-8859-2 charsets
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
'Put some east-europe characters to the bytearray.
'This characters are stored using windows-1250 charset
ByteArray.CharSet = "windows-1250"
ByteArray.String = "ìšèøžýáíé ÌŠÈØŽÝÁÍÉ"
'set output character set
Response.CharSet = "iso-8859-2"
'write some ANSI string
Response.Write "Test string: "
'Write source string converted to "iso-8859-2"
Response.BinaryWrite ByteArray.CharSetConvert(Response.CharSet)
'same for utf-8
'set output character set
'response.CharSet = "utf-8"
'write some ANSI string
'response.write "Test string: "
'Write source string converted to "iso-8859-2"
'response.binarywrite ByteArray.CharSetConvert(response.CharSet)
%>
|
|
| ||
Function URLEncode(ByVal Data, CharSet)
'Create a ByteArray object
Dim ByteArray: Set ByteArray = CreateObject("ScriptUtils.ByteArray")
If Len(CharSet)>0 Then ByteArray.CharSet = CharSet
ByteArray.String = Data
If ByteArray.Length > 0 Then
Dim I, C, Out
For I = 1 To ByteArray.Length
'For each byte of the encoded data
C = ByteArray(I)
If C = 32 Then 'convert space to +
Out = Out + "+"
ElseIf (C < 48 Or c>126) Or (c>56 And c<=64) Then
Out = Out + "%" + Hex(C)
Else
Out = Out + Chr(c)
End If
Next
URLEncode = Out
End If
End Function |