📄 index.asp
字号:
<html>
<head>
<title>NZDS海量词典－<%=request("wd")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style>
input.query {border:1px solid #7E9DB9;background-color:white;font-family:Verdana;font-size:16px;font-size-adjust:none;height:1.64em;line-height:normal;}
td.logo {PADDING-RIGHT: 15px; PADDING-LEFT: 10px; PADDING-BOTTOM: 4px; WIDTH: 145px;}
.logintextlink{font-size:75%; padding-right:4px; padding-top:4px;}
a.fixedlink:link,a.fixedlink:visited {COLOR: #0000cc; TEXT-DECORATION: underline}
.backgroundbord {background:#ffffff none repeat scroll 0%;border:1px solid #296EA3;padding:1px;position:relative; width:88px}
#searchbuttonarea span {float:left;width:88px}
.backgroundbord button {
background:#DDE7F4 url(http://shared.yodao.com/images/button-bg.gif) repeat-x scroll 0%;background-position:0px 0px;
border:0pt none;font-size:14px;height:22px;font-weight:bold;width:88px;cursor:pointer;}
a.tipshuise:visited {color: #9E9E9E; font-size: 100%; text-decoration: none;}
td.titleblue {BORDER-TOP: #588acb 1px solid; PADDING-LEFT: 12px; FONT-SIZE: 16px; BACKGROUND: #d0dff4; HEIGHT: 23px}
td.titleblue2 {PADDING-RIGHT: 10px; BORDER-TOP: #588acb 1px solid; FONT-SIZE: 80%; BACKGROUND: #d0dff4; HEIGHT: 23px}
td.bottoms {BORDER-TOP: #588acb 1px solid; BACKGROUND: #d0dff4; BORDER-BOTTOM: #588acb 1px solid; HEIGHT: 69px}
td.tab {FONT-SIZE: 85%; padding-bottom: 3px; padding-top: 5px;}
td.jiqiao {color:#9E9E9E; font-size:12px; height:22px; padding-top:2px;}
td {font-size: 100%; line-height: 18px;}
body {font-family: arial, sans-serif;}
table.all {BORDER: 0px none; PADDING: 0px; MARGIN: 0px; WIDTH: 100%}
.bbnei {FONT-SIZE: 13px; height: 2em; width: 5em}
.xglink {font-size:75%;padding-top:3px}
.xglinkt {font-size:75%}
td.remindtt75 {font-size:75%; padding:2px;}
td.remindtt752 {font-size:75%; padding-left:2px; padding-right:2px;}
.jstxhuitiaozuo {background-color:#EFEFF0; color:#8D9DBE; font-size:75%; padding-left:5px; padding-top:1px;}
.jstxhuitiaoyou {background-color:#EFEFF0; color:#8D9DBE; font-size:75%; padding-right:5px;}
.aa_highlight {background-color:#DFE9F3; color:#000000;}
span.xukezheng, .remindpgray {color:#9E9E9E;}
.jstxlan:hover {color:#BC2931; text-decoration:underline; }
.jstxlan {color:#1F3A87; font-size:100%; cursor:pointer}
td.tabline2{
width:521px;
border-bottom:1px solid #C1C0C0;
}
td.tablineonetabwide {
width:505px;
border-bottom:1px solid #C1C0C0;
}
td.tabline {
width:521px;
border-bottom:1px solid #C1C0C0;
}
td.dtcontent{
font-size:75%;
padding-bottom:14px;
line-height:140%;
width:571px;
}
td.dttitle2{
font-size:80%;
padding-top:5px;
color:#013694;
font-weight:bold;
width:571px;
}
td.tabline3{
width:437px;
border-bottom:1px solid #C1C0C0;
}
td.dtcontentzoom{
font-size: 75%; padding-bottom: 1px; width:571px; line-height: 140%
}
td.attributemsentence {
FONT-SIZE:75%;
padding-left:20px;
width:10px;
}
</style>
</head>
<body>
<script>
<!--
function Send_Open() {
if (document.form1.cx_33.value == "") {
alert("请先填写专辑地址？");
document.form1.cx_33.select();
return false;
}
return true;
}
//-->
</script>
<form name="form1" method="get" action="" onSubmit="return Send_Open();">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr><th colspan="2" align="center" class="tableHeaderText">NZDS海量词典：<input name="wd" type="text" value="<%=request("wd")%>" size="80"> <input name="action" type="submit" id="action" value="搜索"></td></tr>
<tr><td align="center" bgcolor="#FFFFFF"></td></tr>
</table>
</form>
<%
If Request("wd")<>"" Then
on error resume next
dim weburl
'请修改为你的网址
weburl="www.netsoz.com"
'远程截取函数开始
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"UTF-8")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("ado"&"db.str"&"eam")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
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 del(str)
str=replace(str,"www.yodao.com/search?q=","www.netsoz.com/internet-8-")
str=replace(str,"&keyfrom=dict.webdict",".html")
str=replace(str,"%22","")
str=replace(str,"+"," ")
str=replace(str,"href=""http://","target=_blank href=""http://")
str=replace(str,"<B>相关","")
str=replace(str,"search?q=","?wd=")
str=replace(str,"<table class=""all"" bgcolor=""e2eef4"" cellpadding=""0"" cellspacing=""0"">","")
str=replace(str,"","")
del=str
End Function
dim wd
wd=Server.UrlEncode(request("wd"))
pn=request("pn")
'截取网址
url="http://dict.yodao.com/search?q="&wd&"&btnIndex=%E6%90%9C+%E7%B4%A2&ue=utf8&keyfrom=dict.index"
wstr=getHTTPPage(url)
set reg=new Regexp
reg.Multiline=True
reg.Global=Flase
reg.IgnoreCase=true
If Instr(1,wd,"lj%3A")<>0 Then
reg.Pattern="<table class=""engeng"" cellpadding=0 cellspacing=0 >((.|\n)*?)<table class=""all"" bgcolor=""e2eef4"" cellpadding=""0"" cellspacing=""0"">"
Else
reg.Pattern="<div id=""resultDiv1"" style=""display:block"">((.|\n)*?)<table class=""all"" bgcolor=""e2eef4"" cellpadding=""0"" cellspacing=""0"">"
End If
Set matches = reg.execute(wstr)
For Each match1 in matches
bodypage=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
If bodypage="" Then
Response.Write "抱歉，没有找到与您查询的“"&wd&"”相符的字词"
Else
response.write del(bodypage)
End If
End If
%>
<br>
<center>NZDS海量词典远程截取系统V1.0 By Netsoz.Com</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -