Søg
Avatar billede plato Juniormester
27. februar 2003 - 00:20 Der er 2 kommentarer og
1 løsning

Søg ASP Database

Hejsa...


Er der ikke en eller anden venlig sjæl der ligger inde med et ASP script, som kan søge i en database. Hvor man bare lige skal rette databasenavn og diverse ting der søges efter...
Mangler vildt en søgemaskine.
Avatar billede Jman Praktikant
27. februar 2003 - 00:44 #1
kald siden for soeg.asp
og put dette ind:
-- erstat "din-database.mdb" + "database" + "tabel-navnet" (flere steder) med dine egne databasenavne samt felter --

<% hvilket = Request.Form("hvilken") %>
<html>
<head>
<title>Søgeside</title>
</head>
<BODY>
<% if hvilket = "" then  %>
Søgeord:
<form action="soeg.asp" method="post">
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG">
</form>
<% else %>
<%
Dim objRec, antal
antal = 0

Set Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.recordset")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("din-database.mdb")
objRec.Open "SELECT * FROM database WHERE tabel-navnet like '%" & hvilket & "%'",conn,1,3

antal = objRec.recordcount

if antal > 0 then
Response.write "Jeg fandt " & antal & ", der svarede til dit søgekriterie"
%>

<% While Not objRec.EOF %>

<% = markString(objRec("tabel-navnet"),hvilket) %>

<%
objRec.MoveNext
Wend

objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
%>

<form action="soeg.asp" method="post">
Søg igen:
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG"> </h2>
</form>
<%
else
Response.write "<h1><font color='#FF0000' face='Arial'> Desværre, navnet du søgte findes ikke i databasen!</font></h1>"
%>
<form action="soeg.asp" method="post">
Søg igen:
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG">
</form>
<%
end if
end if
%>
</body>
</html>

<%
Function markString(strInput,findStr)
Set objRegPath = New RegExp
objRegPath.Global = true
objRegPath.IgnoreCase = True
objRegPath.Pattern = "("&findStr&")"
strOutput = objRegPath.Replace(strInput, "<span style='background-color: #FFFF00'>$1</span>")
Set objRegPath = Nothing
markString = strOutput
End Function
%>
Avatar billede plato Juniormester
27. februar 2003 - 07:34 #2
Tusind Tak!! Den vil jeg arbejde med, så den passer til min database. Men den virker :)
Avatar billede Jman Praktikant
27. februar 2003 - 08:37 #3
no prob
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »