|
|
行 7: |
行 7: |
| </html> | | </html> |
| | | |
− | <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>
| |
| | | |
| '''翻譯技巧''' | | '''翻譯技巧''' |
於 2016年9月14日 (三) 14:57 的修訂
語言翻譯欄目屬於一把刀實用查詢大全的學習類別。我們提供了線上的中文、英語、法語、德語、西班牙語、葡萄牙語、義大利語、日語、韓語等多種語言的免費相互翻譯,可以是單詞翻譯,也可以是一段話語翻譯,另外還有最常用的英漢、漢英詞典。語言翻譯欄目內容全面、使用方便,是您獲取免費語言翻譯的好幫手!
翻譯技巧
移民須知
綜合知識
英文諺語
字典翻譯及短句翻譯
我們在發布這些在線翻譯資源之前已經逐壹確認過這些網站功能的有效性,同時刪除了使用共同翻譯資源的不同入口,我們還會不定期檢查這些資源的情況以保證這裏提供的資訊准確有效。 做翻譯在線翻譯:中、荷、英、法、德、希臘、漢、意、日、韓...
翻譯文字 請輸入或粘貼您想翻譯的文字並控制在150詞以內 翻譯 翻譯結果 翻譯網頁 翻譯 使用小技巧:幫助中心 1. 使用正確的拼寫、語法和標點可以獲得更高質量的翻譯結果。 2. 完成網頁翻譯後,點擊[查看原頁面],可以進行網頁翻譯前後的...
在線翻譯,免費多語種在線翻譯,專業翻譯公司和本地化公司,大量的翻譯資源以及兼職翻譯人員交流平台。...
本站人工翻譯頻道正在招商,歡迎有實力的專業翻譯公司加入!咨詢郵件: ■ 在線翻譯壹 請輸入要翻譯的內容,可以處理英漢在線翻譯、漢英在線翻譯、日語、韓語、法語、德語、俄語、西班牙語、葡萄牙語、意大利語、荷蘭語、希臘語等十三種語言的在線...
專業文檔翻譯 我公司不同的母語翻譯人員可將您的文檔和 Web 站點譯爲 40 多種語言的文字。並具有包括法律、醫藥、工程和計算機等專業領域的翻譯專家。 電子郵件翻譯 即時發送並接收經翻譯的電子郵件。支持十種世界上最通用的語言
我中心自2000年從事翻譯業務,現已發展成爲國內領先翻譯機構。爲客戶提供英語、日語、韓語、法語、德語、意大利、西班牙語等語種的翻譯業務;翻譯領域涉及通訊、經濟、法律、貿易、機械、化工、醫學、文藝等40余種專業。
英語單詞學習
初中英語第1冊
初中英語第2冊
初中英語第3冊
初中英語第4冊
初中英語第5冊
初中英語第6冊
高中英語第1冊
高中英語第2冊
高中英語第3冊
高考英語辭彙手冊
高考英語片語手冊
大學片語
英語四級
英語六級
英語56級片語