$$《江南昆虫极品搜索》【ASP@SOAP】利用GOOGLE核心源码公开$$

江南昆虫 2003-01-20 08:13:41

<%
Option Explicit
'On Error Resume Next
Dim googleAPIKey,jnkcSearch,jnkcLang,jnkcStart,jnkcOutPut,LangCHK
LangCHK = Array("","","")
jnkcOutPut = ""
googleAPIKey = "2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk"
'这是使用google服务器接口的密匙，使用时请换成你自己的。
'江南昆虫的密匙是“2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk”，
'你可以在google免费申请到属于你自己的，申请网址：
'http://api.google.com/createkey
jnkcSearch = Request.QueryString("keywords")
jnkcLang = Request.QueryString("lang")
jnkcStart = Request.QueryString("start")
If Not IsNumeric(jnkcStart) Then jnkcStart = 0
jnkcStart = Abs(jnkcStart)
If jnkcSearch <> "" Then
Call jnkcDoSearch
Else
LangCHK(2) = " checked"
End If
'' ################################################## Start ###################################### ''
Sub jnkcDoSearch
Dim jnkcSOAP,jnkcGet,jnkcI,DocSize,DocSnippet,DocURL,DocTitle,jnkcTotalCount,searchTime,startIndex,endIndex
Select Case jnkcLang
Case "lang_zh-CN" LangCHK(2) = " checked"
Case "lang_zh-CN|lang_zh-TW" LangCHK(1) = " checked"
Case Else LangCHK(0) = " checked"
End Select
Set jnkcSOAP = Server.CreateObject("MSSOAP.SoapClient30")
'这里需要使用到微软的SOAP3.0，SOAP Toolkit 3.0下载地址：
'http://download.microsoft.com/download/xml/Install/3.0/W982KMeXP/EN-US/SoapToolkit30.EXE
jnkcSOAP.MSSoapInit "http://api.google.com/GoogleSearch.wsdl"
'你也同样可以把GoogleSearch.wsdl下载到本地
'jnkcSOAP.MSSoapInit Server.MapPath("GoogleSearch.wsdl")
Set jnkcGet = jnkcSOAP.doGoogleSearch(googleAPIKey,jnkcSearch,jnkcStart,10,True,"",False,jnkcLang,"UTF-8","UTF-8")
jnkcTotalCount = jnkcGet.Item(2).text
searchTime = jnkcGet.Item(4).text
endIndex = jnkcGet.Item(6).text
startIndex = jnkcGet.Item(9).text
If jnkcTotalCount = 0 Then
jnkcOutPut = "<hr>对不起，找不到您要查找的 <b>" & jnkcSearch & "</b>"
Exit Sub
End If
jnkcOutPut = "<hr>江南昆虫为您搜到了 <b>" & jnkcTotalCount & "</b> 条信息，这是第 <b>" & startIndex & "</b> - <b>" & endIndex & "</b> 条，共用时 <b>" & FormatNumber(searchTime,3,-1) & "</b> 秒。<br><br>"
For jnkcI = 0 To jnkcGet.Item(5).childNodes.length - 1
If jnkcGet.Item(5).childNodes.Item(jnkcI).NodeName = "item" Then
DocSize = jnkcGet.Item(5).childNodes.Item(jnkcI).childNodes.Item(1).text
DocSnippet = jnkcGet.Item(5).childNodes.Item(jnkcI).childNodes.Item(5).text
DocURL = jnkcGet.Item(5).childNodes.Item(jnkcI).childNodes.Item(15).text
DocTitle = jnkcGet.Item(5).childNodes.Item(jnkcI).childNodes.Item(17).text
If DocTitle="" Then DocTitle="无标题"
If DocSnippet<>"" Then DocSnippet = DocSnippet & "<br>"
jnkcOutPut = jnkcOutPut & "<a href='" & DocURL & "'>"& DocTitle &"</a><br>"
jnkcOutPut = jnkcOutPut & DocSnippet & "<span class=g>" & DocURL & " - " & DocSize & "</span>"
jnkcOutPut = jnkcOutPut & " <span jnkc='" & DocURL & "' class=hand>[虫虫快照]</span><br><br>"
End If
Next
Set jnkcGet = Nothing
Set jnkcSOAP = Nothing
jnkcOutPut = DelDotB(jnkcOutPut)
jnkcOutPut = jnkcOutPut & "<div align=center>"
Dim theUrl
theUrl = "<a href='" & Request.ServerVariables("URL") & "?keywords=" & jnkcSearch & "&lang=" & jnkcLang & "&start="
If jnkcStart > 9 Then jnkcOutPut = jnkcOutPut & theUrl & (jnkcStart-10) & "'>上一页</a> "
If endIndex - startIndex = 9 Then jnkcOutPut = jnkcOutPut & theUrl & (jnkcStart+10) & "'>下一页</a> "
jnkcOutPut = jnkcOutPut & "<hr><span class=h><a href='http://www.google.com' target='_blank'>Google</a> <a href='http://google.jnkc.net'>HomePage</a> <a href='http://www.jnkc.net'>JNKC.NET</a></span></div>"
End Sub
'' ################################################### End ####################################### ''
Function DelDotB(jnkcV)
Dim jnkcRegExp
Set jnkcRegExp = new RegExp
jnkcRegExp.IgnoreCase = True
jnkcRegExp.Global = True
jnkcRegExp.Pattern = "(<B>\.\.\.<\/B>)"
DelDotB = jnkcRegExp.Replace(jnkcV,"...")
Set jnkcRegExp = Nothing
End Function
%><html>
<head>
<title>江南昆虫极品搜索引擎</title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Keywords" content="">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>
<body leftmargin="50"><div align=center><form method=get action="<%= Request.ServerVariables("URL") %>"><span class=h><a href='http://google.jnkc.net'>HomePage</a> <a href="http://google.jnkc.net/skill.htm" target="_blank">Search Tips</a> <a href="http://google.jnkc.net/logos.htm" target="_blank">Google LogoShow</a></span><br><A HREF="http://www.google.com/"><IMG SRC="http://google.jnkc.net/image/Logo_25wht.gif" border="0" ALT="Google" align="absmiddle"></A> <input type=text name="keywords" maxLength=256 size=50 value="<%= Server.HTMLEncode(jnkcSearch) %>"> <input type=submit value="江南昆虫极品搜索"> <br>
<input type=radio name="lang" value=""<%= LangCHK(0) %>>搜索所有网站 <input type=radio name="lang" value="lang_zh-CN|lang_zh-TW"<%= LangCHK(1) %>>搜索所有中文网页 <input type=radio name="lang" value="lang_zh-CN"<%= LangCHK(2) %>>搜索中文(简体)网页<input type=hidden name="start" value=0></form></div><%= jnkcOutPut %></body>
</html>

...全文

109 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

江南昆虫 2003-01-23

打赏
举报

《江南昆虫极品搜索》源码全部公开，可打包下载，《Google自己造》！
http://expert.csdn.net/Expert/topic/1385/1385816.xml?temp=.1712305

netyfhome 2003-01-23

打赏
举报

支持JNKC，最好有ASP.NET版本的。期待中

fangzhou 2003-01-23

打赏
举报

啊，成了，谢谢，呵呵

wssgwps 2003-01-22

打赏
举报

收藏先！

fangzhou 2003-01-22

打赏
举报

好东东应该up

3m2u 2003-01-22

打赏
举报

如果webserver不能连google怎么办？

netyfhome 2003-01-22

打赏
举报

是啊，我这里也是错误。还是麻烦大哥赶快帮忙解决了吧！

fangzhou 2003-01-22

打赏
举报

错误类型：
WSDLReader (0x80020009)

why?

fangzhou 2003-01-22

打赏
举报

http://api.google.com/createkey
不能访问

江南昆虫 2003-01-22

打赏
举报

我正在整理和编写说明文件，明天将可以打包下载：）

Iris 2003-01-22

打赏
举报

收藏！！^_^

netyfhome 2003-01-22

打赏
举报

方舟，到google的网站下载一下他的开发包，里面有那个文件，用就没有错误了。

fangzhou 2003-01-22

打赏
举报

书生怎么做的？

netyfhome 2003-01-22

打赏
举报

是啊。下载到本地就好了。还是要非常感谢jnkc啊。不过，快照问题怎么办啊？

江南昆虫 2003-01-22

打赏
举报

凡是出现“WSDLReader (0x80020009)”的朋友可以将
jnkcSOAP.MSSoapInit "http://api.google.com/GoogleSearch.wsdl"
改为：
jnkcSOAP.MSSoapInit "http://google.jnkc.net/GoogleSearch.wsdl"
试试看。

但最好建议把GoogleSearch.wsdl下载到本地！

allforly 2003-01-22