首頁>網絡編程教程>ASP教程

用ASP實現在線文章翻譯的功能

作者：Eve Cole 更新時間：2025-03-27 20:16:01

推薦：ASP基礎教程：其它的ASP常用組件
當你用ASP 編寫服務器端應用程序時，必須依靠ActiveX 組件來強大Web 應用程序的功能，譬如：你需要連接數據庫，對數據庫進行在線操作等等。一、 Browser Capabilities 組件眾所周知，並不

有時候想為我們的網頁提供多語言支持，如果一種語言用一張網頁來做實在太麻煩了，幸好Google提供了語言工具功能，下面介紹如何利用它來實現網頁多種語言之間的轉換。

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,'_self','')>

</select>

</form>

lan.htm中的內容用來選擇要翻譯的語言包括原來的語言和要翻譯成的語言。我們只需要將lan.htm中的內容拷到提供多語言翻譯的頁面中就可以了。

translate.asp

以下為引用的內容：

<html>

<head>

<title>在線翻譯</title>

<meta http-equiv=Content-Type content=text/html; charset=utf-8>

</head>

<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的語言工具實現的。

注意，因為提供多語言支持，所以translate.asp文件所用的編碼是支持所有字符的utf-8

分享：讓彈出窗口變得“聽話”一些
在網上沖浪時進入一些網站會出現彈出窗口。它可能是站長對你的親切問候，也可能是網站的重要通告、網站廣告之類的。但用得不好會讓人產生厭煩心理。如何才能讓彈出窗口發揮作用，而又不影響瀏覽

相關文章