توفر صفحة الويب الخاصة بنا دعمًا متعدد اللغات، وسيكون من الصعب جدًا استخدام صفحة ويب واحدة للغة واحدة، ولحسن الحظ، توفر Google وظيفة أداة اللغة، وإليك كيفية استخدامها لتحويل صفحات الويب بين لغات متعددة.
lan.htm
<النموذج>
<اختر الاسم=الشبكة المحلية>
<option value=en|de>من الإنجليزية إلى الألمانية</option>
<option value=en|es>من الإنجليزية إلى الإسبانية</option>
<option value=en|fr>من الإنجليزية إلى الفرنسية</option>
<option value=en|it>من الإنجليزية إلى الإيطالية</option>
<option value=en|pt>من الإنجليزية إلى البرتغالية</option>
<option value=en|ja>مترجمة من الإنجليزية إلى النسخة التجريبية اليابانية</option>
<option value=en|ko>مترجمة من الإنجليزية إلى النسخة التجريبية الكورية</option>
<option value=en|zh-CN >الإنجليزية مترجمة إلى الصينية (المبسطة) BETA</option>
<option value=de|en>من الألمانية إلى الإنجليزية</option>
<option value=de|fr>من الألمانية إلى الفرنسية</option>
<option value=es|en>من الإسبانية إلى الإنجليزية</option>
<option value=fr|en>من الفرنسية إلى الإنجليزية</option>
<option value=fr|de>من الفرنسية إلى الألمانية</option>
<option value=it|en>من الإيطالية إلى الإنجليزية</option>
<option value=pt|en>من البرتغالية إلى الإنجليزية</option>
<option value=ja|en>النسخة التجريبية من اليابانية إلى الإنجليزية</option>
<option value=ko|en>الإصدار التجريبي من الكورية إلى الإنجليزية</option>
<option value=zh-CN|en>الصينية (المبسطة) مترجمة إلى الإنجليزية BETA</option>
<input style=FONT-SIZE: 12px type=button value=Go-> name=Button1 onClick=javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,' _النفس،'')>
</حدد>
</النموذج>
يتم استخدام المحتوى الموجود في lan.htm لتحديد اللغة المراد ترجمتها، بما في ذلك اللغة الأصلية واللغة المراد ترجمتها. نحتاج فقط إلى نسخ المحتوى الموجود في lan.htm إلى الصفحة التي توفر ترجمة متعددة اللغات.
ترجمة.asp
<أتش تي أم أل>
<الرأس>
<title>الترجمة عبر الإنترنت</title>
<meta http-equiv=Content-Type content=text/html;
</الرأس>
<الجسم>
<%
'عند استئناف الخطأ بعد ذلك
' إذا كانت سرعة الإنترنت بطيئة جدًا، فيمكنك ضبط الوقت التالي. الوحدة الثانية
Server.ScriptTimeout = 999999
'======================================================================== = =======
'وظيفة ترميز الأحرف
'======================================================================== = =======
الدالة BytesToBstr (النص، الكود)
objstream خافت
تعيين objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
'احصل على موضع حدوث سلسلة سطرية في سلسلة أخرى
الدالة نيوسترينغ(wstr,strng)
سلسلة جديدة=Instr(lcase(wstr),lcase(strng))
إذا كانت Newstring<=0 ثم Newstring=Len(wstr)
وظيفة النهاية
"استبدال وظيفة السلسلة."
وظيفة استبدال Str (أوري، str1، str2)
ReplaceStr=replace(ori,str1,str2)
وظيفة النهاية
'======================================================================== = ====
وظيفة ReadXml (عنوان URL، الكود، البداية، النهاية)
تعيين oSend=createobject(Microsoft.XMLHTTP)
SourceCode = oSend.open (GET,url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
إذا (البداية = أو النهاية =) إذن
آخر
ابدأ = سلسلة جديدة (ReadXml، ابدأ)
ReadXml=mid(ReadXml،بدء)
ينتهي = سلسلة جديدة (ReadXml، ينتهي)
ReadXml=left(ReadXml,ends-1)
نهاية إذا
وظيفة النهاية
صفحة url باهتة، الشبكة المحلية
URLpage=طلب(عناوين ورل)
الشبكة المحلية = طلب (الشبكة المحلية)
%>
<طريقة النموذج=إجراء النشر=translate.asp>
<نوع الإدخال=اسم النص=حجم URL=150 قيمة=<%=صفحة url%>>
<نوع الإدخال=الاسم المخفي=قيمة الشبكة المحلية=<%=lan%>>
<نوع الإدخال=قيمة الإرسال=إرسال>
</النموذج>
<%
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,,)
استجابة.كتابة (getcont)
نهاية إذا
%>
</الجسم>
</html>