@@ Google快照自己抓【ASP@SOAP】（源码公开） @@

江南昆虫 2003-01-20 06:15:34

<%
Option Explicit
Dim googleAPIKey,jnkcUrl
googleAPIKey = "2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk"
'这是使用google服务器接口的密匙，使用时请换成你自己的。
'江南昆虫的密匙是“2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk”，
'你可以在google免费申请到属于你自己的，申请网址：
'http://api.google.com/createkey

jnkcUrl = Trim(Request.QueryString("jnkcUrl"))
If jnkcUrl <> "" Then
Call GetCachedPage
Else
Call ShowForm
End If
Sub GetCachedPage
Dim objSoapClient,jnkcGet
Set objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
'这里需要使用到微软的SOAP3.0，SOAP Toolkit 3.0下载地址：
'http://download.microsoft.com/download/xml/Install/3.0/W982KMeXP/EN-US/SoapToolkit30.EXE
objSoapClient.mssoapinit "http://api.google.com/GoogleSearch.wsdl"
'你也同样可以把GoogleSearch.wsdl下载到本地
'objSoapClient.mssoapinit Server.MapPath("GoogleSearch.wsdl")
jnkcGet = objSoapClient.doGetCachedPage(googleAPIKey,jnkcUrl)
Set objSoapClient = Nothing
Response.BinaryWrite jnkcGet
End Sub

Sub ShowForm
%>
<html>
<head>
<title>江南昆虫网页快照引擎</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Keywords" content="">
<STYLE TYPE="text/css">
td{color:gray;font-size:12px}
</STYLE>
</head>
<body>
<table border=0 width=700 align=center>
<form method="get" action="<%= Request.ServerVariables("URL") %>" target="jnkcIframe" onSubmit="window.open('','jnkcIframe')">
<tr>
<td align=center>
<A HREF="http://google.jnkc.net/"><IMG SRC="http://google.jnkc.net/image/Logo_25wht.gif" border="0" ALT="Google@江南昆虫" align="absmiddle"></A>
<input type="text" name="jnkcUrl" value="http://" size="30"><input type="submit" value="获取网页快照"> [By 江南昆虫]
</td>
</tr>
</form>
</table>
<iframe name="jnkcIframe" src="about:blank" width="100%" height="400"></iframe>
</body>
</html>
<% End Sub %>

...全文

112 23 打赏收藏转发到动态举报

写回复

用AI写文章

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

江南昆虫 2003-06-06

打赏
举报

呵呵～～～
服务器调了一下，忘了调回来了：）

agame 2003-06-06

打赏
举报

我一打开怎么就看到ASP源码了？汗~

楼主的东西很棒，请问这些源码怎么这么轻易就让人看到了？我用IE打开的。

难道ASP漏洞这么厉害吗？


<%
Dim jnkcSearch,jnkcLang,jnkcStart,jnkcOutPut,LangCHK
LangCHK = Array("","","")
jnkcOutPut = ""
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
Dim aBadWord
BadWords = Split(BadWords,"|")
For Each aBadWord In BadWords
If InStr(jnkcSearch,aBadWord) > 0 Then
HTMLOutput = "<hr><b>Çë²»ÒªËÑË÷Ãô¸ÐÄÚÈÝ£¬Òª²»È»ÎÒ¿ÉÒªÉúÆøÁËÅ¶£º£¨</b>"
Exit Sub
End If
Next
Set jnkcSOAP = Server.CreateObject("MSSOAP.SoapClient30")
jnkcSOAP.MSSoapInit googleWSDL
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.COM</a> <a href='http://google.jnkc.net'>HomePage</a> <a href='http://www.jnkc.net'>JNKC.NET</a><br>" & CodeBase & "</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="Google,ËÑË÷,jnkc,½ÄÏÀ¥³æ,¿ìÕÕ">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>
<body leftmargin="50" topmargin="0"><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><script src="showcache.js"></script><%= jnkcOutPut %></body>
</html>

erp12 2003-02-12