SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

Asp - Google api - Utiliza google como tu propio sistema

Códigos Asp

Este articulo describe como utilizar a google como tu propio sistema de busqueda con la misma configuracion que tu pagina web. http://groups.google.com/groups?group=google.public.web-apis Visitar sobre mas informacion Apis - Google ( ingles ) Para probar el codigo necesitas obtener una "Googlekey " o clave que te da google cuando te registras.
Visitas: 15,598 -
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. Archivo: results.asp  
  2.  
  3. <%
  4. Option Explicit
  5. Dim ObjSOAPClient, ResultNodeList
  6. Dim MyGoogleKey, SearchStr, StartNum
  7. Dim iIndex, yIndex, ApproxResultCount, HTMLOutput, CategoryHTML
  8. Dim lblResults, ResultArray, tempDir, tempDirTree
  9. Dim DocSize, DocTitle, DocURL, DocSnippet, DocCat, DocCatTitle, DocCatDesc, DocRelated
  10. Dim documentFiltering, estimatedTotalResultsCount, directoryCategories, searchTime
  11. Dim endIndex, searchTips, searchComments, startIndex, estimateIsExact, searchQuery
  12.  
  13. MyGoogleKey = "TU LLAVE DE GOOGLE O CONTRASEÑA"
  14. SearchStr = Request.QueryString("q")
  15. StartNum = Request.QueryString("start")
  16.  
  17. If StartNum="" Then
  18. StartNum=0
  19. End If
  20.  
  21. Set ObjSOAPClient = Server.CreateObject("MSSOAP.SoapClient.1")
  22.  
  23. ObjSOAPClient.mssoapinit Server.MapPath("GoogleSearch.wsdl")
  24.  
  25. Set ResultNodeList = ObjSOAPClient.doGoogleSearch _
  26. (MyGoogleKey, SearchStr, StartNum, 10, False, "", False, "", "", "")
  27.  
  28. documentFiltering=ResultNodeList.Item(1).text
  29. estimatedTotalResultsCount=ResultNodeList.Item(3).text
  30. searchTime=ResultNodeList.Item(7).text
  31. endIndex=ResultNodeList.Item(11).text
  32. searchTips=ResultNodeList.Item(13).text
  33. searchComments=ResultNodeList.Item(15).text
  34. startIndex=ResultNodeList.Item(17).text
  35. estimateIsExact=ResultNodeList.Item(19).text
  36. searchQuery=ResultNodeList.Item(21).text
  37.  
  38. For yIndex = 0 To ResultNodeList.Item(5).childNodes.length - 1
  39. if ResultNodeList.Item(5).childNodes.Item(yIndex).NodeName = "item" Then
  40. tempDir=ResultNodeList.Item(5).childNodes.Item(yIndex).text
  41. CategoryHTML=CategoryHTML & _
  42. "<a href=""http://directory.google.com/"&tempDir&"/"">"&DirTree(tempDir)&"</a><br>"
  43. End If
  44. Next
  45.  
  46. For iIndex = 0 To ResultNodeList.Item(9).childNodes.length - 1
  47. if ResultNodeList.Item(9).childNodes.Item(iIndex).NodeName = "item" Then
  48. DocSize=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(1).text
  49. DocSnippet=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(5).text
  50. DocCat=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(7).text
  51. DocRelated=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(9).text
  52. DocCatTitle=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(11).text
  53. DocCatDesc=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(13).text
  54. DocURL=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(15).text
  55. DocTitle=ResultNodeList.Item(9).childNodes.Item(iIndex).childNodes.Item(17).text
  56.  
  57. DocCat=RemoveLB(DocCat)
  58.  
  59. If DocTitle="" Then DocTitle="Untitled" End If
  60. If DocSnippet<>"" Then DocSnippet=DocSnippet&"<br>" End If
  61. If DocCatDesc<>"" Then DocCatDesc="<font color=gray class=sm>Description:</font> "&DocCatDesc&"<br>"
  62. If DocCat<>"" Then DocCat="<font color=gray class=sm>Category:" &_
  63. " <a href=""http://directory.google.com/"&DocCat&"/"">"&DirTree(DocCat)&"</a></font><br>"
  64.  
  65. HTMLOutput=HTMLOutput & _
  66. "<a href="""&DocURL&""">"&DocTitle&"</a><br>" & _
  67. DocSnippet & DocCatDesc & DocCat &_
  68. "<font color=green>"&DocURL&" - "&DocSize&"</font><br><br>"
  69.  
  70. End If
  71. Next
  72.  
  73. Set ObjSOAPClient = Nothing
  74. %>
  75. <!--#Include File="functions.asp"-->
  76. <style type="text/css">
  77. <!--
  78. P {font-family: tahoma; font-size: 8pt;}
  79. sm {font-size: 8pt;}
  80. -->
  81. </style>
  82. <form method="GET" action="results.asp">
  83. <p>Search for <input type="text" name="q" size="20" value="<%=searchQuery%>">
  84. <input type="submit" value="Search!"></p>
  85. </form>
  86. <% If CategoryHTML<>"" Then %><p><b>Directory Category Matches:</b>
  87. <br><%=RemoveLB(CategoryHTML)%></p><% End If %>
  88. <p><b>Web Page Results</b> - Results <b><%=startIndex%></b>
  89.  - <b><%=endIndex%></b> of about <b><%=FormatNumber(estimatedTotalResultsCount, 0)%></b>.
  90. Search took <b><%=FormatNumber(searchTime, 2)%></b> seconds</p>
  91. <p><%=HTMLOutput%></p>
  92. <p><a href="results.asp?q=<%=SearchStr%>&start=<%=StartNum+10%>">Next Page >></a></p>
  93.  
  94.  
  95.  
  96. Archivo: functions.asp  
  97.  
  98. <%
  99. Function DirTree( tempDir )
  100. tempDirTree=Replace(tempDir,"Top/","")
  101. tempDirTree=Replace(tempDirTree,"/"," > ")
  102. tempDirTree=Replace(tempDirTree,"_"," ")
  103. DirTree=tempDirTree
  104. End Function
  105.  
  106. Function RemoveLB( string )
  107. string=Replace(string,CHR(10),"")
  108. RemoveLB=string
  109. End Function
  110. %>
  111.  
  112.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Google api - Utiliza google como tu propio sistema" href="http://www.tutores.org/codigo/318/" target="_blank">Google api - Utiliza google como tu propio sistema</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.