Zoek formulier

Status
Niet open voor verdere reacties.

knackje

Gebruiker
Lid geworden
9 sep 2002
Berichten
563
Ik ben op dit moment bezig met het opzetten van een soort "info tree". Echter wil ik hierin ook een zoek functie inbouwen. Op internet heb ik gezocht naar wat voorbeelden en ben onderstaan voorbeeld gaan uit proberen alleen het werkt nog niet. Kan iemand mij hierbij helpen.

De html bestanden moet worden gevonden in de map tree webserver maar ook in de mappen daar onder dus bijv. tree webserver/1/2/test.html Hopelijk weer iemand wat ik fout doe en anders wat ik nog meer kan moet doen


Alvast heel erg bedankt

Knackje

Zie het script hieronder, alles is letterlijk overgenomen.

Naam: form.asp
PHP:
<TABLE>
    <TR>
        <TD><H1>Sample ASP Search Form</H1></TD>
    </TR>
</TABLE>
 
<HR WIDTH=75% ALIGN=center SIZE=3>
<p>
 
<TABLE>
  <TR>
    <TD ALIGN=LEFT>Enter your query below:</TD>
  </TR>
  <TR>
    <TD>
      <FORM ACTION="<%= QueryForm%>" METHOD=POST>
 
        <TABLE>
          <TR>
            <TD><INPUT TYPE="TEXT" NAME="SearchString" SIZE="60"
                         MAXLENGTH="100" VALUE="<%=SearchString%>"></TD>
            <TD><INPUT TYPE="SUBMIT" NAME="Action" VALUE="New Query"></TD>
          </TR>
        </TABLE>
       
      </FORM>
    </TD>
  </TR>
</TABLE>


Naam: QueryForm.html

PHP:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nieuwe pagina 1</title>
 <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
<!-- option explicit --> </SCRIPT> 
  
<TITLE>Index Server Search Form</TITLE>
<META NAME="DESCRIPTION" CONTENT="Sample ASP query form for Microsoft Index Server">
<META NAME="KEYWORDS" CONTENT="query, content, hit, asp">
<META NAME="MS.LOCALE" CONTENT="EN-US"> 
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Windows-1252">

<%
    NewQuery = FALSE
    UseSavedQuery = FALSE
    QueryForm = Request.ServerVariables( "" )
    SearchString = ""
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
        SearchString = Request.Form("SearchString")
        pg = Request.Form("pg")
 
        if pg <> "" then
           NextPageNumber = pg
           NewQuery = FALSE
           UseSavedQuery = TRUE
        else
            NewQuery = SearchString <> ""
        end if
     end if
 
 %>
</head>

<body>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd"> 

</body>

</html>
 
Laatst bewerkt door een moderator:
Code is niet compleet

De code is niet compleet. Deze code doet maar heel weinig en zal zeker niets tonen. Kijk eens op de site waar je dit gevonden hebt of je misschien niet alles overgenomen hebt.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan