获取有道词典在线翻译结果 及 Windows下配置运行ASP
生活随笔
收集整理的這篇文章主要介紹了
获取有道词典在线翻译结果 及 Windows下配置运行ASP
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
<%
'說明：該程序用于遠程調用有道翻譯接口中譯英，http://fanyi.youdao.com/openapi.do?keyfrom=localhost&key=1204607085&type=data&doctype=xml&version=1.1&q="&toutf8(sytr_remx(i-1))&"里面的keyfrom，key可以在有道演繹里面申請，申請地址：http://fanyi.youdao.com/openapi?path=data-mode，那里有詳細的講解。
'點航科技技術支持，我們的網址：http://www.zgdhkj.com
'---------------------------主程序開始------------------------Response.Charset="gb2312"
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Session.CodePage=936 dim sytr_ntxtfunction FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,tempID,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10)) '取每一行的字符串
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
call rechken(FSOlinedit)end if
end if
end functionfunction FSOappline(sfilename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(sfilename)) then exit function
set f = fso.opentextfile(server.mappath(sfilename),8,1)
f.write Linecontent
f.close
set f = nothing
end functionFunction GetBodyP(ConStr,StartStr,OverStr,IncluL,IncluR)If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True or StartStr="" or IsNull(StartStr)=True or OverStr="" or IsNull(OverStr)=True ThenGetBodyP="$False$"Exit FunctionEnd IfDim ConStrTempDim Start,OverConStrTemp=Lcase(ConStr)StartStr=Lcase(StartStr)OverStr=Lcase(OverStr)Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)If Start<=0 thenGetBodyP="$False$"Exit FunctionElseIf IncluL=False ThenStart=Start+LenB(StartStr)End IfEnd IfOver=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)If Over<=0 or Over<=Start thenGetBodyP="$False$"Exit FunctionElseIf IncluR=True ThenOver=Over+LenB(OverStr)End IfEnd IfGetBodyP=MidB(ConStr,Start,Over-Start)
End Functionfunction rechken(nt)wrd=nt
wrd=replace(wrd," ","-")
call FSOappline(savefile,wrd&chr(9)) if len(nt)>=200 thendim sytr_remx(1000),sytr_remn(1000)for i = 1 to len(nt) sytr_remx(i-1)=mid(nt,(i-1)*200+1,200)
if len(sytr_remx(i-1))<=0 then exit for
urlx="http://fanyi.youdao.com/openapi.do?keyfrom=localhost&key=1204607085&type=data&doctype=xml&version=1.1&q="&toutf8(sytr_remx(i-1))&""
call getbody(urlx)
sytr_remn(i-1)=sytr_ntxtnextfor i=0 to ubound(sytr_remn)
if len(sytr_remn(i))<=0 then exit for
response.Write sytr_remn(i)nextelseurlx="http://fanyi.youdao.com/openapi.do?keyfrom=localhost&key=1204607085&type=data&doctype=xml&version=1.1&q="&toutf8(nt)&""
call getbody(urlx)
response.Write sytr_ntxtend ifend functionfunction getbody(url) dim objxml
on error resume next
set objxml = createobject("microsoft.xmlhttp")
with objxml
.open "get", url, false, "", ""
.send
xgetbody = .responsebodyend with
xgetbody=bytestobstr(xgetbody,"utf-8")
'response.Write xgetbody
if len(xgetbody)>0 then
call splitre(xgetbody)
'call FSOappline(savefile,xgetbody)
list=GetBodyP(xgetbody,"<explains>","</explains>",False,False)
'call FSOappline(savefile,list)
list=replace(list,chr(10),"")
list=replace(list," <ex><![CDATA[","")
list=replace(list,"]]></ex>"," & ")
call FSOappline(savefile,list&chr(13)&chr(10)) '/
end if
set objxml = nothing end functionfunction bytestobstr(strbody,codebase)
dim objstream
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.mode =3
objstream.open
objstream.write strbody
objstream.position = 0
objstream.type = 2
objstream.charset = codebase
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end functionfunction splitre(str)
str1=split(str,"<paragraph><![CDATA[")
str2=replace(str1(1),"]]></paragraph>","")
str3=replace(str2," </translation>","")
str4=replace(str3,"</youdao-fanyi>","")
sytr_ntxt=str2
'response.Write sytr_ntxt'call FSOappline(savefile,str4) '
end functionFunction toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
toUTF8 = szInput
Exit Function
End If
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next
toUTF8 = szRet
End Function '---------------------------主程序結束------------------------'---------------------------調試開始------------------------'strx="輕輕的閉上雙眼，思緒跟隨著音符早已飛回曾經住過的小山村。仿佛看到了日落西山裊裊炊煙里，大人們忙完了一天的農活忙著回家吃晚飯，頭上戴著散發著汗味的草帽，黝黑的面容上留下一層層歲月沖刷過的痕跡，那一雙雙破舊沾滿泥土的布鞋和草鞋，腳趾裸露著，蜷曲在褲腳邊里的干土粒簌簌掉落，肩上扛著那些磨得發光的農具，一邊輕松地吸著煙，一邊談笑風聲；花色各樣的狗大概是因為能夠跟著主人一起回家而感到無比的高興吧？竄前跑后，開心得搖頭擺尾，“汪汪”地叫喚著；最快樂的是孩子們了，在草地里田埂上跑啊，跳啊，追逐嬉戲，甚至打滾；遠處傳來一種聲音——“叮叮當，叮叮當”，羊群在黃昏時分顯得潔白無比，它們“咩咩”的叫著，主人跟在后面歡快的哼著小曲，和孩子們“丟啊丟手絹……”的歌聲混合在一起，醉了整個黃昏。不經意間想起這些場景，心底里有一股暖流在靜靜流淌，往昔瞬間憶起，禁不住有怦然心動的感覺，有淚濕眼眸的溫暖。時不時地有一種錯覺，那些曾經是在夢中嗎？但我知道夢中不可能有爽朗的笑聲，也不可能有草葉沁香，自己的生命曾經在那一片土地上走過，留下了深深淺淺的腳印，我生命的根在那里。"'call rechken(strx)filename="angerWrd.out.txt"
savefile="angerTrans.txt"
lineNum=1
maxline=600for j=1 to maxline
call FSOlinedit(filename,j)
next'---------------------------調試結束------------------------
%>
Windows7下配置運行ASP：
1. 點擊：開始==》控制面板==》程序和功能==》打開或關閉Windows功能==》Internet信息服務==》Web管理工具，并勾選如圖項目保存配置
2. 返回：所有控制面板==》管理工具，雙擊打開第二項“Internet信息服務(IIS)管理器”；
3. 選擇：Default Web Site==》雙擊打開“ASP”
4. 啟用父路徑，將默認父路徑設置為True；
5. 退回“Default Web Site”==》右邊欄的“綁定”==》添加端口：8081（也可以不用綁定？驗證時直接輸入http://localhost？）
IIS和ASP設置完成，在瀏覽器地址欄輸入如下地址驗證是否配置成功：http://localhost:8081，若打開如下畫面則配置成功。
調用方法：
將.asp文件拷貝到C:\inetpub\wwwroot 目錄下，在瀏覽器地址欄輸入：http://localhost/myAsp.asp
通過有道提供的API獲取詞典釋義。
總結
以上是生活随笔為你收集整理的获取有道词典在线翻译结果 及 Windows下配置运行ASP的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 浏览器打不开计算机二级网页,二级网页打不
- 下一篇： Linux中bash文档翻译