لا داعي للقلق بشأن هذا الأمر!
<%
الدالة base64Encode(sString)
إذا كانت sString = أو IsNull(sString) إذن
base64Encode =
وظيفة الخروج
نهاية إذا
خافت xml_dom، العقدة
تعيين 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 = .Text
نهاية مع
xml_dom.documentElement.appendChild Node
نهاية مع
اضبط xml_dom = لا شيء
وظيفة النهاية
الدالة base64uncode(sString)
إذا كانت sString = أو IsNull(sString) إذن
base64uncode =
وظيفة الخروج
نهاية إذا
خافت xml_dom، العقدة
تعيين xml_dom = CreateObject(Microsoft.XMLDOM)
مع xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
تعيين العقدة = xml_dom.createElement(MyText)
مع العقدة
.dataType = bin.base64
.النص = سلسلة
base64uncode = Stream_GB2312(.nodeTypedValue)
نهاية مع
xml_dom.documentElement.appendChild Node
نهاية مع
اضبط xml_dom = لا شيء
وظيفة النهاية
الدالة Gb2312_Stream(sString)
خافت الدكتور
تعيين الدكتور = CreateObject(ADODB.Stream)
مع د
الوضع = 3
.النوع = 2
.يفتح
مجموعة الأحرف = gb2312
سلسلة كتابة النص
الموقف = 0
.النوع = 1
Gb2312_Stream = .قراءة
.يغلق
نهاية مع
تعيين الدكتور = لا شيء www.vevb.com
وظيفة النهاية
الدالة Stream_GB2312(sStream)
خافت الدكتور
تعيين الدكتور = CreateObject(ADODB.Stream)
مع د
الوضع = 3
.النوع = 1
.يفتح
.اكتب sStream
الموقف = 0
.النوع = 2
مجموعة الأحرف = gb2312
Stream_GB2312 = .ReadText
.يغلق
نهاية مع
تعيين الدكتور = لا شيء
وظيفة النهاية
%>