ASP编程：ASP法式中供应在线文章翻译功效

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)法式|在线|在线       有时分想为咱们的网页供应多言语撑持，假如一种言语用一张网页来做其实太费事了，幸亏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->" name="Button1" ＞
＜/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 WordStrStr(ori,str1,str2)
　WordStrStr=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完成翻译功效，这是使用谷歌的言语东西完成的。

　　注重，由于供应多言语撑持，所以translate.asp文件所用的编码是撑持一切字符的"utf- </p>  缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。