用asp提供在线文章翻译的功能

核心提示： set objstream = nothing End Function '取行字符串在另一字符串中的出现位置Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 the

　　　  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.xml(标准化越来越近了)HTTP")
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"

技术交流　永无止境