ASP binary and String Conversion, alternative perfect solution, ADODB. Stream implementation by shawl. Qiu

ASP binary and String Conversion, alternative perfect solution, ADODB. Stream implementation by shawl. Qiu

Abstract:
This document describes how to use the ASP built-in component ADODB. Stream to convert binary to string and binary to any character set encoding.

Note:
To implement the binary transfer string operation, it can be said that it is easy to convert the binary transfer string of the US-ASCII character set, where such standard information is everywhere.

A bit difficult is the binary transfer string of the gb2312 character set. Each Chinese Character Set of the gb2312 Character Set occupies two bytes, which is easy to calculate because of relevant information.

What is difficult is the binary transfer string of the Unicode Character Set. Each Chinese Character Set occupies three bytes of space. I rummaged through the relevant authoritative websites, no site has an introduction to the Unicode Character Set and binary stream, so it is difficult. if there are related standard documents, it is easy to do anything, as long as the sprout article needs to pass through.

Finally, after nearly ten hours of struggle, I finally found that using the ASP ADODB. Stream built-in component can easily handle the conversion of binary streams and strings of any encoding .:)

Directory:
1. ASCII character set binary transfer string Function
2. gb2312 Character Set binary transfer string Function
3. ADODB. Stream string to binary stream function and binary stream string function and demonstration operation

Shawl. Qiu
2006-09-26
Http://blog.csdn.net/btbtd

1. ASCII character set binary transfer string Function

Linenum
1. <%
2. Private function btsascii (BIN)
3. 'Convert binary to string (BMP | GIF | PNG | JPG)
4. Dim I, ibyt, sbyt, blen: blen = lenb (BIN)
5. For I = 1 to blen
6. Sbyt = midb (bin, I, 1): ibyt = ASCB (sbyt)
7. If ibyt <128 then
8. Btsascii = btsascii & CHR (ibyt)
9. Else: I = I + 1
10. If I <= blen then btsascii = btsascii & CHR (ASCW (sbyt & sbyt ))
11. End if
12. Next 'shawl. Qiu Code'
13. End Function
14. %>

2. gb2312 Character Set binary transfer string Function

Linenum
1. <%
2. Private function btsgb2312 (BIN)
3. 'Convert binary to string | gb2312 Encoding
4. Dim I, ibyt, sbyt, blen: blen = lenb (BIN)
5. For I = 1 to blen
6. Sbyt = midb (bin, I, 1): ibyt = ASCB (sbyt)
7. If ibyt <128 then
8. Btsgb2312 = btsgb2312 & CHR (ibyt)
9. Else
10. Btsgb2312 = btsgb2312 & CHR (ASCW (midb (bin, I + 1, 1) & sbyt ))
11. I = I + 1
12. End if
13. Next 'shawl. Qiu Code'
14. End Function
15. %>

3. ADODB. Stream string to binary stream function and binary stream string function and demonstration operation

Linenum
1. <%
2. Dim STR: Str = "ADODB. Stream achieves mutual conversion between binary and string by shawl. Qiu"
4. Response. Write "string to binary response. binarywrite STB (STR," "UTF-8" "): <br/>"
5. Response. binarywrite STB (STR, "UTF-8 ")
7. Response. write "<p/> binary to string response. write BTS (midb (STB (STR, "" UTF-8 ""), 1), "" UTF-8 "") <br/>"
8. Response. Write BTS (midb (STB (STR, "UTF-8"), 1), "UTF-8 ")
10. Function STB (STR, charset)
11. '''''''''''''''''''''''''''''
12. 'String to binary function by shawl. Qiu
13. 'Http://blog.csdn.net/btbtd
14. ''''''''''''''''
15. 'Parameter description
16. ''''''''''
17. 'Str: string to be converted to binary
18. 'Charset: the default Character Set of the string. If this parameter is not specified, the default value is gb2312.
19. ''''''''''
20. 'Sample call: Response. binarywrite STB (STR, "UTF-8 ")
21. '''''''''''''''''''''''''''''
22. Dim STM _
23. Set STM _ = Createobject ("ADODB. Stream ")
24. With STM _
25. . Type = 2
26. If charset <> "" then
27. . Charset = charset
28. Else
29. . Charset = "gb2312"
30. End if
31. . Open
32. . Writetext Str
33. . Position = 0
34. . Type = 1
35. STB =. Read
36. . Close
37. End with 'shawl. Qiu Code'
38. Set STM _ = nothing
39. End Function
41. Function BTS (STR, charset)
42. '''''''''''''''''''''''''''''
43. 'Binary to string function by shawl. Qiu
44. 'Http://blog.csdn.net/btbtd
45. ''''''''''''''''
46. 'Parameter description
47. ''''''''''
48. 'Str: binary data to be converted to a string
49. 'Charset: the default Character Set of the string. If this parameter is not specified, the default value is gb2312.
50. ''''''''''
51. 'Sample call: Response. Write BTS (midb (STB (STR, "UTF-8"), 1), "UTF-8 ")
52. '''''''''''''''''''''''''''''
53. 'Note: the binary string must be read with midb (binarystring, 1) (custom read length ).
54. '''''''''''''''''''''''''''''
55. Dim STM _
56. Set STM _ = Createobject ("ADODB. Stream ")
57. With STM _
58. . Type = 2
59. . Open
60. . Writetext Str
61. . Position = 0
62. If charset <> "" then
63. . Charset = charset
64. Else
65. . Charset = "gb2312"
66. End if
67. BTS =. readtext
68. . Close
69. End with 'shawl. Qiu Code'
70. Set STM _ = nothing
71. End Function
72. %>