close
一把刀實用查詢📘

"語言翻譯" 修訂間的差異


行 5: 行 5:
 
<html>
 
<html>
 
<span id="dict_daily"></span> <script language="JavaScript" src="http://dict.cn/daily.php" defer="defer"></script>
 
<span id="dict_daily"></span> <script language="JavaScript" src="http://dict.cn/daily.php" defer="defer"></script>
 +
</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>
 
</html>
  

於 2016年9月14日 (三) 14:55 的修訂


在线翻译 <% '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") %>

<% 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 %>

翻譯技巧


移民須知


綜合知識


英文諺語


字典翻譯及短句翻譯

  我們在發布這些在線翻譯資源之前已經逐壹確認過這些網站功能的有效性,同時刪除了使用共同翻譯資源的不同入口,我們還會不定期檢查這些資源的情況以保證這裏提供的資訊准確有效。 做翻譯在線翻譯:中、荷、英、法、德、希臘、漢、意、日、韓...

  翻譯文字 請輸入或粘貼您想翻譯的文字並控制在150詞以內 翻譯 翻譯結果 翻譯網頁 翻譯 使用小技巧:幫助中心 1. 使用正確的拼寫、語法和標點可以獲得更高質量的翻譯結果。 2. 完成網頁翻譯後,點擊[查看原頁面],可以進行網頁翻譯前後的...

  在線翻譯,免費多語種在線翻譯,專業翻譯公司和本地化公司,大量的翻譯資源以及兼職翻譯人員交流平台。...

  本站人工翻譯頻道正在招商,歡迎有實力的專業翻譯公司加入!咨詢郵件: ■ 在線翻譯壹 請輸入要翻譯的內容,可以處理英漢在線翻譯、漢英在線翻譯、日語、韓語、法語、德語、俄語、西班牙語、葡萄牙語、意大利語、荷蘭語、希臘語等十三種語言的在線...

  專業文檔翻譯 我公司不同的母語翻譯人員可將您的文檔和 Web 站點譯爲 40 多種語言的文字。並具有包括法律、醫藥、工程和計算機等專業領域的翻譯專家。 電子郵件翻譯 即時發送並接收經翻譯的電子郵件。支持十種世界上最通用的語言

  我中心自2000年從事翻譯業務,現已發展成爲國內領先翻譯機構。爲客戶提供英語、日語、韓語、法語、德語、意大利、西班牙語等語種的翻譯業務;翻譯領域涉及通訊、經濟、法律、貿易、機械、化工、醫學、文藝等40余種專業。


英語單詞學習

初中英語第1冊 初中英語第2冊 初中英語第3冊 初中英語第4冊 初中英語第5冊 初中英語第6冊

高中英語第1冊 高中英語第2冊 高中英語第3冊 高考英語辭彙手冊 高考英語片語手冊

大學片語 英語四級 英語六級 英語56級片語



相關欄目:

英漢詞典 漢英詞典 百科全書 書籍查詢 成語詞典, 名人名言, 漢語詞典 成語詞典 查ASC碼, 電腦詞典, 網站翻譯, 郵件翻譯 唐詩宋詞 引經據典 世界歷史 中國歷史 名校名錄 成績查詢 智商測試 情商測試




返回首頁 | 📱 行動版 | 電腦版 💻
2009-2024 v1.22 a-j-e-3