在网上找了很久，终于找到一个可以用的！
-
ฟังก์ชั่น base64Encode(sString)
ถ้า sString = หรือ IsNull(sString) แล้ว
base64Encode=
ออกจากฟังก์ชัน
สิ้นสุดถ้า
หรี่ xml_dom, Node
ตั้งค่า xml_dom = CreateObject(Microsoft.XMLDOM)
ด้วย xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
ตั้งค่าโหนด = xml_dom.createElement(MyText)
ด้วยโหนด
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .ข้อความ
จบด้วย
xml_dom.documentElement.appendChild โหนด
จบด้วย
ตั้งค่า xml_dom = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น base64uncode(sString)
ถ้า sString = หรือ IsNull(sString) แล้ว
base64uncode=
ออกจากฟังก์ชัน
สิ้นสุดถ้า
หรี่ xml_dom, Node
ตั้งค่า xml_dom = CreateObject(Microsoft.XMLDOM)
ด้วย xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
ตั้งค่าโหนด = xml_dom.createElement(MyText)
ด้วยโหนด
.dataType = bin.base64
.ข้อความ = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
จบด้วย
xml_dom.documentElement.appendChild โหนด
จบด้วย
ตั้งค่า xml_dom = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชัน Gb2312_Stream (sString)
ดร.ติ่ม
ตั้งค่า dr = CreateObject (ADODB.Stream)
กับดร
.โหมด = 3
.ประเภท = 2
.เปิด
.ชุดอักขระ = gb2312
.WriteText sString
.ตำแหน่ง = 0
.ประเภท = 1
Gb2312_Stream = .อ่าน
.ปิด
จบด้วย
ตั้ง dr = Nothing www.vevb.com
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น Stream_GB2312(sStream)
ดร.ติ่ม
ตั้งค่า dr = CreateObject (ADODB.Stream)
กับดร
.โหมด = 3
.ประเภท = 1
.เปิด
.เขียน sStream
.ตำแหน่ง = 0
.ประเภท = 2
.ชุดอักขระ = gb2312
Stream_GB2312 = .ReadText
.ปิด
จบด้วย
ตั้งค่า dr = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-