بعد كتابة المقالة السابقة بلغة PHP باستخدام واجهة برمجة التطبيقات للترجمة من Google، أردت فجأة إنشاء فئة ASP حتى يتمكن مستخدمو asp من استخدامها. ثم بدأت الكتابة ووجدت أنني نسيت الكثير عن asp. على سبيل المثال، الموضوع، الفكرة هي تمامًا نفس مقالة C#، لقد قمت للتو بتحويلها إلى طريقة تنفيذ ASP. انظر مباشرة إلى الكود:
انسخ رمز الكود كما يلي:
فئة مترجم جوجل
subClass_Initialize()
RURI=http://translate.google.com/translate_t?langpair={0}&text={1}
نهاية الفرعية
اختيار خاص_ '
الحصول على الملكية
أوبت=أوبت_
نهاية الملكية
خاصية السماح بالاختيار (Opt_s)
Opt_=Opt_s
نهاية الملكية
روري الخاص
تحليل الوظيفة (النمط، النصوص، مكاتب الملكية الفكرية)
التعبير العادي الخافت، المطابقة، التطابقات
قم بتعيين regEx = New RegExp
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
regEx.Pattern = patrn
regEx.Multiline = صحيح
ديمريتستر
تعيين التطابقات = regEx.Execute(texts)
إذا (Matches.Count > 0) ثم RetStr= Matches(0).SubMatches(IPos)
AnalyzeChild=RetStr
تعيين regEx = لا شيء
وظيفة النهاية
الدالة getHTTPPage(url)
خافت objXML
قم بتعيين تعريف objXML=server.createobject(MSXML2.XMLHTTP)'
objXML.open GET,url,false'open
objXML.send()'إرسال
إذا كان objXML.readystate<>4 إذن
وظيفة الخروج
نهاية إذا
getHTTPPage=BytesToBstr(objXML.responseBody)
تعيين objXML=لا شيء'إغلاق
إذا كان err.number<>0 ثم err.Clear
وظيفة النهاية
الدالة BytesToBstr(body)
objstream خافت
تعيين objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = utf-8
'قم بتحويل ترميز UTF-8 الافتراضي الأصلي إلى ترميز GB2312، وإلا فإن استخدام XMLHTTP مباشرة لاستدعاء صفحة ويب بأحرف صينية سيؤدي إلى تعليمات برمجية مشوهة
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
الوظيفة العامة GetText(str)
إذا (isempty(str)) ثم اخرج من الوظيفة
خافت newUrl، روبية
newUrl=Replace(Replace(RURI,{0},Server.URLEncode(Opt)),{1},Server.URLEncode(str))
Rs=getHTTPPage(newUrl)
GetText = AnalyzeChild((<div id=result_box dir=ltr>)([?:/s/S]*?)(</div>),Rs,1)
وظيفة النهاية
فئة فرعية_إنهاء
نهاية الفرعية
نهاية الفصل
ثم عند الاستخدام:
انسخ رمز الكود كما يلي:
DimObj
Set Obj = GoogleTranslator الجديد
Obj.Opt=zh-CN|en
استجابة.كتابة (Obj.GetText (لنا))
هذا كل شيء، تجدر الإشارة إلى أنه نظرًا لأن أيًا من منتجات Google بتنسيق UTF-8، فسيتم حفظ ملف asp هذا بتنسيق UTF-8 وإضافته في البداية:
<%@ LANGUAGE=VBScript CodePage=65001%>
<%الخيار صريح
'... انسخ الرمز الخاص بي أعلاه
هذا كل شيء.