موصى به: برنامج ASP Basic Tutorial: مكونات أخرى شائعة الاستخدام من ASP عندما تستخدم ASP لكتابة تطبيقات من جانب الخادم ، يجب عليك الاعتماد على مكونات ActiveX لوظائف تطبيقات الويب القوية ، مثل: تحتاج إلى الاتصال بقاعدة البيانات ، وتشغيل قاعدة البيانات عبر الإنترنت ، إلخ.
في بعض الأحيان أريد تقديم دعم متعدد اللغات لصفحات الويب الخاصة بنا. إنه أمر مزعج للغاية لاستخدام صفحة ويب واحدة ولغة واحدة. لحسن الحظ ، توفر Google وظائف أداة اللغة. يصف ما يلي كيفية استخدامه لتحويل صفحات الويب بين لغات متعددة.
lan.htm
| ما يلي هو المحتوى المقتبس: <Porm> <تحديد الاسم = lan> <قيمة الخيار = en | de> اللغة الإنجليزية إلى الألمانية </option> <value Option = en | es> ترجمة اللغة الإنجليزية إلى الإسبانية </option> <value Option = en | fr> الترجمة الإنجليزية إلى الفرنسية </option> <value Option = en | it> ترجمة اللغة الإنجليزية إلى إيطالية </option> <value Option = en | pt> ترجمة اللغة الإنجليزية إلى البرتغالية </option> <value Option = en | ja> ترجمة اللغة الإنجليزية إلى بيتا اليابانية </option> <قيمة الخيار = EN | KO> ترجمة اللغة الإنجليزية إلى بيتا الكورية </option> <value Option = EN | ZH-CN> ترجمة اللغة الإنجليزية إلى صينية (صينية مبسطة) بيتا </option> <value Option = de | en> الألمانية إلى اللغة الإنجليزية </option> <خيار القيمة = de | fr> الألمانية إلى الفرنسية </option> <value Option = es | en> الترجمة الإسبانية إلى اللغة الإنجليزية </option> <value Option = fr | en> الترجمة الفرنسية إلى اللغة الإنجليزية </option> <value Option = fr | de> الترجمة الفرنسية إلى الألمانية </option> <value Option = it | en> الإيطالي إلى اللغة الإنجليزية </option> <value Option = pt | en> ترجمة البرتغالية إلى اللغة الإنجليزية </eboty> <قيمة الخيار = ja | en> اليابانية إلى الإنجليزية بيتا </option> <value Option = ko | en> الترجمة الكورية إلى Beta English </Option> <قيمة الخيار = Zh-Cn | en> الترجمة الصينية (مبسطة) إلى بيتا باللغة الإنجليزية </orpion> <نمط الإدخال = حجم الخط: نوع 12 بكسل = قيمة زر = go- & gt ؛ name = button1 onClick = javaScript: window.open ('translate.asp؟ urls =' document.location '& lan =' lan.value ، '_ self' ، '')> </select> </form> |
يتم استخدام المحتوى في lan.htm لتحديد اللغة المراد ترجمتها ، بما في ذلك اللغة الأصلية واللغة المراد ترجمتها. نحتاج فقط إلى نسخ المحتوى في lan.htm إلى صفحة توفر ترجمة متعددة اللغات.
ترجمة
| ما يلي هو المحتوى المقتبس: <html> <head> <title> الترجمة عبر الإنترنت </title> <meta http-equiv = content-type content = text/html ؛ charset = utf-8> </head> <body> <٪ 'عند استئناف الخطأ التالي إذا كانت سرعة الإنترنت بطيئة للغاية ، فيمكنك ضبط الوقت التالي. وحدة ثانية server.scriptTimeout = 999999 '======================================================================= 'وظيفة تشفير الأحرف '======================================================================= وظيفة bytestobstr (الجسم ، رمز) قاتمة objstream تعيين OBJStream = server.createBject (ADODB.Stream) objstream.type = 1 objstream.mode = 3 objstream.Open objstream.write الجسم objstream.position = 0 objstream.type = 2 objstream.charset = رمز bytestobstr = objstream.readtext objstream.close اضبط OBJStream = لا شيء وظيفة نهاية أحضر موضع حدوث سلسلة الخط في سلسلة أخرى وظيفة NewsString (WSTR ، Strng) NewsString = instr (LCAS (WSTR) ، LCASE (Strng)) إذا كانت NewsString <= 0 ثم NewsString = Len (WSTR) وظيفة نهاية استبدال وظيفة السلسلة وظيفة replacestr (ori ، str1 ، str2) replacestr = استبدال (ori ، str1 ، str2) وظيفة نهاية '====================================================================== وظيفة readxml (url ، الكود ، ابدأ ، نهايات) SET OSEND = createObject (microsoft.xmlhttp) sourcecode = osend.open (Get ، url ، false) Osend.send () readxml = bytestobstr (Osend.ResponseBody ، Code) إذا (ابدأ = أو ينتهي =) ثم آخر start = newstring (readxml ، ابدأ) readxml = mid (readxml ، ابدأ) تنتهي = newstring (readxml ، ينتهي) readxml = اليسار (readxml ، النهايات -1) إنهاء إذا وظيفة نهاية URLPAGE DIM ، LAN urlpage = طلب (عناوين URL) LAN = طلب (LAN) ٪> <method method = post Action = translate.asp> <type type = text name = urls size = 150 value = <٪ = urlPage ٪ >> <نوع الإدخال = الاسم المخفي = LAN value = <٪ = LAN ٪ >> <نوع الإدخال = إرسال القيمة = إرسال> </form> <٪ قاتمة transurl transurl = http: //216.239.39.104/translate_c؟ hl = zh-cn & ie = utf-8 & oe = utf-8 & langpair = & server.urlencode (lan) && u = & urlpage && prev =/language_tools إذا (len (urlpage)> 3) ثم getCont = readxml (transurl ، gb2312 ،،) استجابة. write (getCont) إنهاء إذا ٪> </body> </html> |
Translate.asp تنفذ وظيفة الترجمة ، والتي يتم تنفيذها باستخدام أدوات لغة Google.
لاحظ أنه نظرًا لتوفير الدعم متعدد اللغات ، فإن الترميز المستخدم بواسطة ملف Translate.asp هو UTF-8 الذي يدعم جميع الأحرف.
مشاركة: اجعل النافذة المنبثقة "مطيعًا" قليلاً ستظهر النوافذ المنبثقة عند إدخال بعض مواقع الويب أثناء تصفح الإنترنت. قد تكون تحية لطيفة من مشرف المواقع لك ، أو قد يكون إعلانًا مهمًا عن موقع الويب ، وإعلانات موقع الويب ، وما إلى ذلك ، ولكن إذا كنت تستخدمه بشكل سيء ، فسيجعل الناس يشعرون بالملل. كيفية جعل المنبثقة تعمل دون التأثير على التصفح