Κώδικας :: Κώδικας.
Σε αυτή τη σελίδα υπάρχουν ερωτήσεις ή απαντήσεις σε απορίες που είναι αναγκαίο η τοποθέτηση κώδικα html για καλύτερη εξυπηρέτηση του χρήστη
| » | search database error (solved) | Ερώτημα |
| Από: xristos την 12/6/2001 | ||
| Ο κώδικας που παράγει το error | ||
| <%@Language=VBScript%> <% Response.Buffer = True %> <% Dim MyConn, SQL, RS, srchval, i 'παίρνουμε στοιχεία από τη φόρμα srchval = Replace(Request.Form("searchvalue"), "'", "''") srchall = Request.Form("all") 'δημιουργία σκοπού σύνδεσης και σύνδεση με τη database Set MyConn=Server.CreateObject("ADODB.Connection") 'προσοχή υπάρχουν 3 διαφορετικά MyConn.Open σειρές: μια για dsn-less, μια για OLEDB, και μια DSN. Διάλεξε αυτή που θέλεις 'MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\secaplas\db\secaplas.mdb" MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= c:\inetpub\wwwroot\my\db\my.mdb" 'Έλεγχος για την επιλογή του checkbox. Αν ναι τότε ψάχνουμε όλα τα πεδία... If srchall = 1 Then SQL = "Select FROM * members WHERE eponymia Like '%"&srchval&"%'" SQL = SQL & " Or actions Like '%"&srchval&"%'" 'αν οχι ψάξε μόνο το LastName πεδίο Else SQL = "Select FROM * members WHERE actions Like '%"&srchval&"%'" End If 'execute the SQL statement Set RS=MyConn.Execute(SQL) 'αν έχει τοποθετηθεί λέξη στη φόρμα... If srchval <> "" Then If RS.BOF And RS.EOF Then Response.Write "Δεν βρέθηκε τίποτα." 'Αν βρέθηκε... Else 'Φτιάχνουμε HTML table για να τοποθετήσουμε τα records. Response.Write "<center><table border=""1""><tr>" 'Προσδιορίζουμε αριθμό πεδίων και παρουσιάζουμε τα ονόματα πεδίων For i = 0 To RS.Fields.Count - 1 Response.Write "<th>" & RS(i).Name & "</th>" Next Response.Write "</tr>" 'τώρα ανακύκλωση στα αποτελέσματα τις ερώτησης και παρουσίαση αποτελεσμάτων While Not RS.EOF Response.Write "<tr>" For i = 0 To RS.Fields.Count - 1 Response.Write "<td>" & RS(i).Value & "</td>" Next Response.Write "</tr>" 'επόμενο αρχείο RS.MoveNext Wend 'τώρα κλείσε το HTML table Response.Write "</table>" End If 'αν δεν τοποθετηθεί λέξη στη φόρμα τότε στείλε τον επισκέπτη πίσω στη φόρμα Else Response.Redirect "default.htm" End If 'κλείνουμε την σύνδεση RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1253"> </head> <body bgcolor="#FFFFFF" text="#000000"> </body> </html> |
||
Πρόταση | Ερώτηση | Καταχώρηση site
Η Εταιρία |
Web Hosting | Domain names |
Web Information | Υπηρεσίες |
Resellers |
Υποστήριξη |
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.