＜body＞ ＜% ’on error resume
next ’ 如果网速很慢的话，可以调整以下时间。单位秒 Server.ScriptTimeout =
999999 ’======================================================== ’字符编码函数 ’======================================================== Function
BytesToBstr(body,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,strng)
Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring＜=0 then
Newstring=Len(wstr) End Function
’替换字符串函数 function
ReplaceStr(ori,str1,str2) ReplaceStr=replace(ori,str1,str2) end
function
’===================================================== function
ReadXml(url,code,start,ends) set
oSend=createobject("Microsoft.XMLHTTP") SourceCode = oSend.open
("GET",url,false)
oSend.send() ReadXml=BytesToBstr(oSend.responseBody,code
) if(start="" or ends="")
then else start=Newstring(ReadXml,start) ReadXml=mid(ReadXml,start) ends=Newstring(ReadXml,ends) ReadXml=left(ReadXml,ends-1) end
if end function
dim
urlpage,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-CN&ie=UTF-8&oe=UTF-8&langpair="&server.URLEncode(lan)&"&u="&urlpage&"&prev=/language_tools" if(len(urlpage)＞3)
then getcont=ReadXml(transURL,"gb2312","","") response.Write(getcont) end
if %＞ ＜/body＞ ＜/html＞ translate.asp实现翻译功能，这是利用google的语言工具实现的。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
