selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

ASP Filter starten

Autor: loni
Datum: 02.04.2012 08:07:40

Guten Tag Forummer. Ich bin an absoluter Anfänger in asp. Habe Jahrelange Erfahrung in Access, leider hilft mir das nicht. Kann mir jemand den folgenden Code verbessern. Er loll einen View Filtern. Es funktioniert auch aber erst beim 2 mal eingeben.

<%
        fehler=0

        'adresse suchen SQL zusammenstellen und an Variable übergeben
        if request.QueryString("such")="1" then
           vfeld=request.Form("feld")
           vtext=request.Form("text")&"%"
           vwhere=" where " & vfeld & " like '" & vtext &"'"
        end if
%>


<table border="0" width="700" cellspacing="3" cellpadding="0" class="txtregular">
        <tr>
                <td colspan="2" class="txt_titel">
                        Adresse suchen
                </td>
        </tr>
        <tr><td colspan="2">&nbsp;</td></tr>
        <%if fehler=1 then%>
                <tr>
                        <td colspan="2" class="txtsmall">
                                <font color="red">Alle Felder mit einem * müssen ausfühlt sein.</font>
                        </td>
                </tr>
                <tr>
                        <td colspan="2">
                                &nbsp;
                        </td>
                </tr>
        <%end if%>

        <form action="index.asp?site=14&such=1&where=<%=vwhere%>" method="post">

        <tr>
                <td colspan="2">
                        <hr size="1" color="#D2D2D2">
                </td>
        </tr>
        <tr>
                <td width="200">Suchtext: </td>
                <td width="700">
                         <input type="text" class="selectfield2" name="text" value="<%=request.form("text")%>" maxlength="240" size="90">
                </td>
        </tr>
        <tr>
                <td>Suchfeld: *</td>
                <td>
                        <select name="feld" class="selectfield2">
                                <%select case request.form("feld")
                                         case "F"%>
                                                 <option value="F">Nachname</option>
                                                 <option value="">--------------------------</option><%
                                         case "M"%>
                                                 <option value="M">Vorname</option>
                                                 <option value="">--------------------------</option><%
                                         case "Fi"%>
                                                 <option value="Fi">Firma</option>
                                                 <option value="">--------------------------</option><%
                                         case else%>
                                                 <option value="">wählen...</option>
                                                 <option value="">--------------------------</option>
                                <%end select%>
                                <option value="nname">Nachname</option>
                                <option value="vname">Vorname</option>
                                <option value="fname">Firma</option>
                        </select>
                </td>
        </tr>
        <tr>
                <td colspan="2">
                        <hr size="1" color="#D2D2D2">
                </td>
        </tr>
        <tr>
                <td colspan="2">
                        <input type="submit" value="Suchen" class="button">
                </td>
        </tr>
        </form>
</table>



Re: ASP Filter starten

Autor: reporter
Datum: 10.05.2012 23:13:54

Hallo,

kannst du uns nocheinmal genau sagen was du mit deinem Quelltext machen möchtest?



Re: ASP Filter starten

Autor: loni
Datum: 10.05.2012 23:41:54

> Hallo,
>
> kannst du uns nocheinmal genau sagen was du mit
> deinem Quelltext machen möchtest?

Besten Dank für deine Antwort. Ich habe das Problem gelöst.
Leider haben sich im laufe der weiterentwicklung weitere Hürden ergeben. So habe ich ein Formular in welchem ich rechte zur bearbeitung der Datenbank vergebe. Ebenso möchte ich je nach bedarf einen Filter mitgeben, so dass der User nicht alle Datensätze sieht. Wie mache ich das, dass ich den Filter mit zusammenklicken erstelle und dieser im Feld Filter auch gleich angezeigt wird?

Habe noch den Code der Seite:

Der nachstehende Code funktioniert, zeigt aber die Aktualisierung nicht.

<%
        fehler=0
if request.QueryString("filtern")=1 then
           swhere=chk_where_such(swhere, "fvjahr") 'auf inhalt prüfen nicht 1 or 0 sondern len > 0
           swhere=chk_where_such(swhere, "mitgliedseit") 'auf inhalt prüfen nicht 1 or 0 sondern len > 0
           swhere=chk_where_such(swhere, "zugehoerig")
           swhere=chk_where_such(swhere, "gold")
           swhere=chk_where_such(swhere, "sammler")
           swhere=chk_where_such(swhere, "inserent")
           swhere=chk_where_such(swhere, "sponsor")
           swhere=chk_where_such(swhere, "lieferant")
           swhere=chk_where_such(swhere, "helfer")
           swhere=chk_where_such(swhere, "helfervon")
           swhere=chk_where_such(swhere, "vorstand")
           swhere=chk_where_such(swhere, "ehrenm")

end if

        'gewählten datensatz öffnen
        SqlStrg = "SELECT * FROM tbl_benutzer WHERE ID_benutzer=" & request.QueryString("id")
        set recMain = fhdb.Execute(SqlStrg)

        'bearbeitete daten speichern
        if request.QueryString("save")="1" then

                if len(request.Form("bname"))>0 AND len(request.Form("passw"))>0 AND len(request.Form("admin"))>0 AND len(request.Form("id_kunde"))>0 then

                        Set rst = Server.CreateObject("ADODB.Recordset")
                        rst.Open "SELECT * FROM tbl_benutzer WHERE ID_benutzer="&request.QueryString("id"), fhdb,2,3

                        rst("bname")                = request.Form("bname")
                        rst("passw")                = request.Form("passw")
                        rst("berechtigung")         = request.Form("berechtigung")
                        rst("admin")                = request.Form("admin")
                        rst("id_kunde")             = request.Form("id_kunde")
                                 if request.QueryString("filtern")=1 then
                                          if len(swhere)>0 then rst("Filter")= swhere
                                 end if
                        rst("erfasst")              = date()
                        rst("update")               = date()

                        rst.Update
                        rst.Close
                        response.Redirect "index.asp?site=17"
                else
                        fehler=1
                end if
        end if
%>

<table align="right" border="0" width="1100" cellspacing="3" cellpadding="0" class="txtregular">
        <tr>
                <td colspan="2" class="txt_titel">
                        Benutzer bearbeiten
                </td>
        </tr>
        <tr><td colspan="2"> </td></tr>
        <%if fehler=1 then%>
                <tr>
                        <td colspan="2" class="txtsmall">
                                <font color="red">Alle Felder mit einem * müssen ausfühlt sein.</font>
                        </td>
                </tr>
                <tr>
                        <td colspan="2">
                                 
                        </td>
                </tr>
        <%end if%>
        <form action="index.asp?site=19&save=1&filtern=1&id=<%=request.QueryString("id")%>" method="post">
        <tr>
                <td colspan="2">
                        <hr size="1" color="#D2D2D2">
                </td>
        </tr>
        <tr><td width="200">Name: *</td><td width="700"><Êll strDropDownList("id_kunde","id_kunde","nname","tbl_kunden","vorstand='1'",recMain("id_kunde"),"Details neu...")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr><td>Benutzername: *</td><td><Êll feld_Edit("bname")%></td></tr>
        <tr><td>Passwort: *</td><td><Êll feld_Edit("passw")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr><td>Berechtigung: *</td><td><Êll strDropDownList("berechtigung","id","beschreibung","tbl_benutzer_rechte","",recMain("berechtigung"),"Berechtigung neu...")%></td></tr>
        <tr><td>Datenfilter: *</td><td><Êll feld_Edit("Filter")%></td></tr>
        <tr><td>Administrator: *</td><td><Êll janein_Edit("admin")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr>
                <td colspan="2">
                        <input type="button" value="Zurück" class="button" onClick="window.location.href='index.asp?site=17'">
                        <input type="submit" value="Speichern" class="button">
                </td>
        </tr>
        <tr>
                <td colspan="2" class="txt_titel"> Datenfilter erstellen</td>
        </tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
                 <tr><td>Frohsinnvater:</td><td><Êll janein_Neu("fvjahr")%></td></tr>
                 <tr><td>Mitglied:</td><td><Êll janein_Neu("mitgliedseit")%></td>
                                       <td><Êll chkbox("chkmitglied","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Zugehörigkeit: </td><td><Êll strDropDownList("zugehoerig","id","zunft","tbl_zugehoerig","","","suche...")%></td>
                                             <td><Êll chkbox("chkzugehoerig","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Goldplakettenträger:</td><td><Êll janein_Neu("gold")%></td>
                                                  <td><Êll chkbox("chkgold","AND","AND","OR","OR",1)%></td></tr>
                 <tr>
                         <td colspan="2">
                                 <hr size="1" color="#D2D2D2">
                         </td>
                 </tr>
                 <tr><td>Sammler:</td><td><Êll janein_Neu("sammler")%></td>
                                      <td><Êll chkbox("chksammler","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Inserent:</td><td><Êll janein_Neu("inserent")%></td>
                                       <td><Êll chkbox("chkinserent","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Sponsor:</td><td><Êll janein_Neu("sponsor")%></td>
                                      <td><Êll chkbox("chksponsor","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Lieferant:</td><td><Êll janein_Neu("lieferant")%></td>
                                        <td><Êll chkbox("chklieferant","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Helfer:</td><td><Êll janein_Neu("helfer")%></td>
                                     <td><Êll chkbox("chkhelfer","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Helfer von: </td><td><Êll strDropDownList("helfervon","id","amt","tbl_Vorstandamt","","","suche...")%></td>
                                          <td><Êll chkbox("chkhelfervon","AND","AND","OR","OR",1)%></td></tr>
                 <tr>
                         <td colspan="2">
                                 <hr size="1" color="#D2D2D2">
                         </td>
                 </tr>
                 <tr><td>Vorstand:</td><td><Êll janein_Neu("vorstand")%></td>
                                       <td><Êll chkbox("chkvorstand","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Ehrenmitglied:</td><td><Êll janein_Neu("ehrenm")%></td>
                                            <td><Êll chkbox("chkehrenm","AND","AND","OR","OR",1)%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr>
                <td>

                </td>
        </tr>
        <tr>
                <td colspan="2">
                        <input type="submit" value="Filter setzen" class="button">
                </td>
        </tr>
        <tr>
                <td colspan="2"> </td>
        </tr>
</table>



Re: ASP Filter starten

Autor: reporter
Datum: 16.05.2012 10:34:21

Hallo,

ich bin mir nicht sicher was du genau möchtest. Wenn ich dich richtig verstanden habe möchtest du folgendes erreichen:
Du hast eine Datenbank mit einer Datenbanktabelle. Diese enthält irgendwelche Daten. Diese zeigst du in einer HTML-Übersicht an. Nun möchtest du, das der Benutzer die Datensätze filtern kann. Somit sollen dann nur die Datensätze angezeigt werden, die den Filter entsprechen. Und als i-Punkt soll dies so passieren, das mit jeder Filterdefinition das Ergebnis sofort angezeigt wird.

Liege ich damit richtig?



Re: ASP Filter starten

Autor: loni
Datum: 16.05.2012 10:59:57

besten Dank für die Antwort.
Problem hat sich bereits erledigt. Konnte alles lösen. Muss mich halt noch an ASP gewöhnen.