code) dim objstream set objstream = Server.CreateObject(adod

由于提供多说话支持，lcase(strng)) if Newstring=0 then Newstring=Len(wstr) End Function '替代字符串函数 function ReplaceStr(ori，'') /select /form lan.htm中的内容用来选摘要翻译的说话包罗原本的说话和要翻译成的说话，，'_self'，，code) dim objstream set objstream = Server.CreateObject(adodb.stream) objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset =code BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function '取行字符串在另一字符串中的呈现位置 Function Newstring(wstr。

str2) end function '===================================================== function ReadXml(url，strng) Newstring=Instr(lcase(wstr)。

ends-1) end if end function dim urlpage。

str1，str2) ReplaceStr=replace(ori，假如一种说话用一张网页来做其实太贫困了，可以调解以下时刻，) response.Write(getcont) end if % /body /html translate.asp实现翻译成果， lan.htm 以下是引用片断： form select name=lan 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英语 翻译成 日语 BETA/option option value=en|ko英语 翻译成 朝鲜语 BETA/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日语 翻译成 英语 BETA/option option value=ko|en朝鲜语 翻译成 英语 BETA/option option value=zh-CN|en中文(简体) 翻译成 英语 BETA/option input style=FONT-SIZE: 12px type=button value=Go-gt; name=Button1 onClick=javascript:window.open('translate.asp?urls='+document.location+'lan='+lan.value，code ) if(start= or ends=) then else start=Newstring(ReadXml， 偶然辰想为我们的网页提供多说话支持。

我们只必要将lan.htm中的内容拷到提供多说话翻译的页面中就可以了。

ends) ReadXml=left(ReadXml，以是translate.asp文件所用的编码是支持全部字符的utf-8 ，下面先容怎样操作它来实现网页多种说话之间的转换。

ends) set oSend=createobject(Microsoft.XMLHTTP) SourceCode = oSend.open (GET，start，gb2312，start) ReadXml=mid(ReadXml。

false) oSend.send() ReadXml=BytesToBstr(oSend.responseBody，lan urlpage=request(urls) lan=request(lan) % form method=post action=translate.asp input type=text name=urls size=150 value=%=urlpage% input type=hidden name=lan value=%=lan% input type=submit value=submit /form % dim transURL transURL=http://216.239.39.104/translate_c?hl=zh-CNie=UTF-8oe=UTF-8langpair=server.URLEncode(lan)u=urlpageprev=/language_tools if(len(urlpage)3) then getcont=ReadXml(transURL，code， translate.asp 以下是引用片断： html head title在线翻译/title meta http-equiv=Content-Type content=text/html; charset=utf-8 /head body % 'on error resume next ' 假如网速很慢的话，这是操作google的说话器材实现的，幸好Google提供了说话器材成果，start) ends=Newstring(ReadXml， 留意，url，str1，单元秒 Server.ScriptTimeout = 999999 '======================================================== '字符编码函数 '======================================================== Function BytesToBstr(body。

（编辑：开发网_郴州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!