Hola, me gustaria saber si alguien puede echarme un cable con el siguiente problema:
Tengo una página principal con un menú, una botonera y demás que recargan un div "contenedor" mediante AJAX.
Una de esas opciones es un buscador de archivos, en una carpeta del sitio.
Bien el problema es el siguiente, cargo el form del buscador como el resto de las páginas modificando el contenido de "contenedor", y al darle al boton de submit se me recarga la página y me deja unicamente el <div> "contenedor" con el resultado.
Bien, se que el problema esta en que en ese boton no estoy llamando a la funcion de AJAX que me recarga el contenido, entonces lo hago mediante un enlace para que si que lo haga ya que llamo esa funcion para $(a[rel='history']).funcion.click, pero entonces no puedo llamar al codigo VB que tengo para que haga la busqueda.
Pongo el código para que os hagais una idea:
Código:
<script runat="server">
Dim SearchTerm, Novalid, NovalidResponse, FolderName, SearchResponse, FolderToCheck, Wfile, Wfile2, a, ct, ct2, SearchTerm2, longitud, longitud2
Dim palabras() As String
Sub submit()
SearchTerm = Request.Form("term")
Novalid = " a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more"
NovalidResponse = "Go back and try again. Your search term is very common"
palabras = Split(SearchTerm, " ")
If InStr(SearchTerm, Novalid) = 0 Then
Response.Write("<CENTER><H2>Resultados de la Búsqueda</H2></CENTER>")
FolderName = "Documentos"
ShowList()
Else
Response.Write(NovalidResponse)
End If
SearchResponse = ""
End Sub
Sub ShowList()
FolderToCheck = Server.MapPath("./") & "/" & FolderName
Dim fs, f, f1, fc
Dim valido As Boolean
Dim i As Integer
Dim resultado As String
resultado = ""
fs = CreateObject("Scripting.FileSystemObject")
f = fs.GetFolder(FolderToCheck)
fc = f.Files
For Each f1 In fc
Wfile = f1.name
If Right(Wfile, 4) = ".pdf" Then
For i = 0 To (palabras.Length - 1) Step 1
SearchTerm = palabras(i)
Wfile2 = LCase(Wfile)
If InStr(Wfile, SearchTerm) > 0 Or InStr(Wfile2, SearchTerm) Then
valido = True
Else
valido = False
Exit For
End If
Next
If (valido) Then
SearchResponse = SearchResponse + "<TR><TD>" + Wfile + "</TD><TD ALIGN=CENTER VALIGN=MIDDLE>" + " <A HREF=" + "/recaudacion/" + FolderName + "/" + Wfile + "> Ver </A></TD></TR>"
valido = False
End If
End If
Next
resultado = resultado + "<TABLE BORDER=0 WIDTH=550><TR><TD BGCOLOR=C0C0C0><FONT SIZE=5><B>Resultados de la Busqueda</B></FONT></TD></TR></TABLE>"
resultado = resultado + "<TABLE BORDER=0 WIDTH=550>"
If SearchResponse <> "" Then
resultado = resultado + (SearchResponse)
Else
resultado = resultado + "<TR><TD>NO SE ENCUENTRAN DOCUMENTOS PARA LAS PALABRAS ESPECIFICADAS</TD></TR>"
End If
resultado = resultado + "</TABLE>"
resultado = resultado + "</CENTER></BODY></HTML>"
resultados.innerHTML = resultado
End Sub
</script>
<div class="caja">
<div class="caja_arriba">
</div>
<h3>BUSCADOR DE DOCUMENTOS</h3>
<form id="Form1" method="POST" runat="server" action="index.aspx#searchfiles">
<table border="0" cellpadding="5" >
<tr>
<td align="center">
Terminos de busqueda :
<input type="text" name="term" size="15">
<a href="#searchfiles" id="button1" text="Buscar" rel='history' onclick="submit" >Buscar</a>
<input type="hidden" value="submit" name="metodo" />
</td>
</tr>
</form>
</table>
<div id="resultados" runat="server">
</div>
<div class="caja_abajo">
</div>
</div>