Forum

Search σε database - Από {kostas}

Πώς μπορώ να κάνω ASP script που να κάνει έρευνα μίας συγκεκριμένης λέξης μόνο σε μία στίλη της database (.mdb)

Υ.Γ. Τα πεδία περιέχουν κείμενο

Απάντηση από:Panagiotis

κοίταξε εδώ 8α σε βοηθήσει .... http://www.powerasp.com/content/code-snippets/default.asp

Απάντηση από:tony

<P><FONT face="Verdana" size="1"><B>Ονόμασε το πίνακα στην access [UNV_HISTORY] και το πεδίο που θα ψάχνει [his_desc]</B><BR><FONT
color="#0000FF">Σώσε αυτό ως </FONT><FONT color="#000080"> search_SrcEngine.asp</FONT><FONT color="#0000FF"> </FONT></FONT></P>

<P><TEXTAREA rows="13" name="S1" cols="58" style="font-family: Verdana; font-size: 8pt"><%@ Language="vbscript"%>


<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=windows-1253">
<TITLE>Τϊτλος</TITLE>
</HEAD>
<BODY bgColor="#FFFFFF" Background="">
<%
Dim Coloralt
If Request.Querystring("results") = "" Then
%>

<Center><H1><Font Color="#000000" face="Verdana" size="2">Τίτλος εδώ</Font></H1></Center>
<FORM action="search_SrcEngine.asp?results=results" target="main_view" method="post" Name="DaForm" >
<Input Type="text" size="30" Name="Criteria">
<Input Type="submit" Name="B1" class="buttons" value="Search">
<Input Type="reset" Name="B2" class="buttons" value="Clear">
</FORM>


<IFRAME name="main_view" src="" width="100%" height="300" marginwidth="0" marginheight="0"></IFRAME>

<%
Else

If Request.Form("Criteria") = "" Then
response.write("<H2 align=""center"">Δεν έδωσες λέξη</H2>")
response.write("<H2 align=""center"">A Criteria is required to do a search!</H2>")
Else

SearchSQL = SearchSQL & "SELECT * FROM [UNV_HISTORY] WHERE [his_desc] LIKE '%" & Request.Form("Criteria") & "%'"
Set RS=Conn.Execute(SearchSQL)

If RS.BOF And RS.EOF Then
response.write("<H2 align=""center"">Δεν βρήκα τίποτα.</H2>")
response.write("<H2 align=""center"">We did not find a match!</H2>")
Else

If Not RS.BOF Then
Coloralt="ECFDFF"

While Not RS.EOF
Do While Not RS.EOF

response.write("<Table border=""1"" cellpadding=""0"" cellspacing=""0"" Align=""Center"" borderColor=""#000000"" Background="""" Width=""100%""> ")
response.write("<TR>")
response.write("<TD Width=""100%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & RS("his_desc") & "</Font></TD>")
response.write("</TR>")
response.write("</Table>")
RS.MoveNext

If Coloralt="ECFDFF" Then
Coloralt="CEE7FF"
Else
Coloralt="ECFDFF"
End If
Loop
Wend
End If
End If
RS.Close
Conn.Close
End If
End If
%>
</BODY>
</HTML>
</TEXTAREA></P>

<P><FONT face="Verdana" size="1">Και αυτό ως <FONT color="#000080"> dataconn.asp</FONT> <BR><FONT color="#CC3300">Προσοχή στο dataconn.asp πρέπει να δώσεις path για την
database.</FONT></FONT></P>

<P><TEXTAREA rows="5" name="S1" cols="58" style="font-family: Verdana; font-size: 8pt"><%

Set Conn = server.CreateObject("adodb.connection")
Dim DSNtemp
DSNtemp="Provider=MSDASQL;"
DSNtemp=DSNtemp & "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=C:\path_gia\database.mdb;"

Conn.open DSNtemp
%></TEXTAREA></P>
<P><FONT face="Verdana" size="1">Ανέβασε και τα 2 στο ίδιο folder.</FONT></P>

Απάντηση από:tony

<P><FONT face="Verdana" size="1">Ονόμασε το πίνακα στην access [UNV_HISTORY] και το πεδίο που θα ψάχνει
[his_desc]<BR>Σώσε αυτό ως search_SrcEngine.asp </FONT></P>
<P><FONT face="Verdana" size="1"><FONT color="#CC3300"><%@ Language="vbscript"%><BR><BR><BR><HTML><BR><HEAD><BR><META http-equiv="Content-Type" content="text/html; charset=windows-1253"><BR><TITLE>Τϊτλος</TITLE><BR></HEAD><BR><BODY bgColor="#FFFFFF" Background=""><BR><%<BR>Dim Coloralt <BR>If Request.Querystring("results") = "" Then<BR>%><BR><BR><Center><H1><Font Color="#000000" face="Verdana" size="2">Τίτλος εδώ</Font></H1></Center><BR> <FORM action="search_SrcEngine.asp?results=results" target="main_view" method="post" Name="DaForm" ><BR> <Input Type="text" size="30" Name="Criteria"><BR> <Input Type="submit" Name="B1" class="buttons" value="Search"><BR> <Input Type="reset" Name="B2" class="buttons" value="Clear"><BR> </FORM><BR><BR> <BR> <IFRAME name="main_view" src="" width="100%" height="300" marginwidth="0" marginheight="0"></IFRAME><BR> <BR><%<BR>Else<BR><BR> If Request.Form("Criteria") = "" Then<BR> response.write("<H2 align=""center"">Δεν έδωσες λέξη</H2>")<BR> response.write("<H2 align=""center"">A Criteria is required to do a search!</H2>")<BR> Else<BR><BR> SearchSQL = SearchSQL & "SELECT * FROM [UNV_HISTORY] WHERE [his_desc] LIKE '%" & Request.Form("Criteria") & "%'"<BR> Set RS=Conn.Execute(SearchSQL)<BR><BR> If RS.BOF And RS.EOF Then<BR> response.write("<H2 align=""center"">Δεν βρήκα τίποτα.</H2>")<BR> response.write("<H2 align=""center"">We did not find a match!</H2>")<BR> Else<BR><BR> If Not RS.BOF Then<BR> Coloralt="ECFDFF"<BR><BR> While Not RS.EOF<BR> Do While Not RS.EOF<BR><BR>response.write("<Table border=""1"" cellpadding=""0"" cellspacing=""0"" Align=""Center"" borderColor=""#000000"" Background="""" Width=""100%""> ")<BR>response.write("<TR>")<BR>response.write("<TD Width=""100%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & RS("his_desc") & "</Font></TD>")<BR>response.write("</TR>")<BR>response.write("</Table>")<BR> RS.MoveNext<BR><BR> If Coloralt="ECFDFF" Then<BR> Coloralt="CEE7FF" <BR> Else <BR> Coloralt="ECFDFF" <BR> End If <BR> Loop<BR> Wend<BR> End If<BR> End If<BR> RS.Close<BR> Conn.Close<BR> End If <BR>End If<BR>%><BR></BODY><BR></HTML></FONT><BR></FONT></P>
<P><FONT face="Verdana" size="1">Και αυτό ως dataconn.asp <BR>Προσοχή στο dataconn.asp πρέπει να δώσεις path για την
database.<BR><FONT color="#0000FF"><%<BR><BR>Set Conn = server.CreateObject("adodb.connection")<BR>Dim DSNtemp<BR>DSNtemp="Provider=MSDASQL;"<BR>DSNtemp=DSNtemp & "DRIVER={Microsoft Access Driver (*.mdb)}; "<BR>DSNtemp=DSNtemp & "DBQ=C:\path_gia\database.mdb;"<BR><BR>Conn.open DSNtemp<BR>%><BR></FONT><BR><BR><BR>Ανέβασε και τα 2 στο ίδιο folder.</FONT></P>

Απάντηση από:Kostas

Στο path για την db θέλει ολοκληρωμένο c:\xxxx
πώς μπορεί να πέρνει path απο server?

Απάντηση από:tony

ΝΑΙ

Απάντηση από:Kostas

Πως?

Απάντηση από:Kostas

Πώς μπορώ να κάνω το script να μήν εμφανίζει μόνο τα δεδομένα απο το πεδίο his_desc αλλα και απο άλλο ενα π.χ. his_link

<Β>Δηλαδή</b>
Να κάνει search στα πεδία της μίας στίλης αλλα στα αποτελέσματα να δίχνει και πληροφορίες απο την άλλη στίλη...
Ευχαριστώ πολύ

Απάντηση από:tony

Δες εδώ αύριο.

Απάντηση από:tony

<P><FONT face="Verdana" size="1"><FONT color="#0000FF">Ονόμασε το πίνακα στην access [messages] και το πεδίο που θα ψάχνει<BR>[message_body].
Το πεδίο με τα αποτελέσματα [</FONT><FONT color="#0000FF">message_subject]</FONT><FONT color="#0000FF"><BR>Σώσε αυτό ως aweb_SrcEngine.asp </FONT><BR><BR><FONT
color="#CC3300"><%@ Language="vbscript"%><BR><BR><BR><HTML><BR><HEAD><BR><META http-equiv="Content-Type" content="text/html; charset=windows-1253"><BR><TITLE>Τίτλος</TITLE><BR></HEAD><BR><BODY bgColor="#FFFFFF" Background=""><BR><%<BR>Dim Coloralt <BR>If Request.Querystring("results") = "" Then<BR>%><BR><BR><Center><H1><FONT color="#000000" face="Verdana" size="2"><B>Τίτλος</B></FONT></H1></Center><BR> <FORM action="aweb_SrcEngine.asp?results=results" target="main_view" method="post" Name="DaForm" ><BR> <Input Type="text" size="30" Name="Criteria"><BR> <Input Type="submit" Name="B1" class="buttons" value="Search"><BR> <Input Type="reset" Name="B2" class="buttons" value="Clear"><BR> </FORM><BR><BR> <BR> <IFRAME name="main_view" src="" width="100%" height="300" marginwidth="0" marginheight="0"></IFRAME><BR> <BR><%<BR>Else<BR> If Request.Form("Criteria") = "" Then<BR> response.write("<H2 align=""center"">Δεν έδωσες λέξη</H2>")<BR> response.write("<H2 align=""center"">A Criteria is required to do a search!</H2>")<BR> Else<BR> SearchSQL = SearchSQL & "SELECT * FROM [messages] WHERE [message_body] LIKE '%" & Request.Form("Criteria") & "%'"<BR> Set RS=Conn.Execute(SearchSQL)<BR><BR> If RS.BOF And RS.EOF Then<BR> response.write("<H2 align=""center"">Δε βρήκα τίποτα.</H2>")<BR> response.write("<H2 align=""center"">We did not find a match!</H2>")<BR> Else<BR> If Not RS.BOF Then<BR> Coloralt="ECFDFF"<BR><BR> While Not RS.EOF<BR> Do While Not RS.EOF<BR><BR>response.write("<Table border=""1"" cellpadding=""0"" cellspacing=""0"" Align=""Center"" borderColor=""#000000"" Background="""" Width=""100%""> ")<BR>response.write("<TR>")<BR>response.write("<TD Width=""100%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & RS("message_subject") & "</Font></TD>")<BR>response.write("</TR>")<BR>response.write("</Table>")<BR> RS.MoveNext<BR><BR> If Coloralt="ECFDFF" Then<BR> Coloralt="CEE7FF" <BR> Else <BR> Coloralt="ECFDFF" <BR> End If <BR> Loop<BR> Wend<BR> End If<BR> End If<BR> RS.Close<BR> Conn.Close<BR> End If <BR>End If<BR>%><BR></BODY><BR></HTML><BR></FONT><BR><BR><BR><FONT
color="#0000FF">Και αυτό ως dataconn.asp <BR>Προσοχή στο dataconn.asp πρέπει να δώσεις path για την<BR>database.</FONT><BR><FONT
color="#CC3300"><%<BR><BR>Set Conn = server.CreateObject("adodb.connection")<BR>Dim DSNtemp<BR>DSNtemp="Provider=MSDASQL;"<BR>DSNtemp=DSNtemp & "DRIVER={Microsoft Access Driver (*.mdb)}; "<BR>DSNtemp=DSNtemp & "DBQ=C:\path_gia\database.mdb;"<BR><BR>Conn.open DSNtemp<BR>%></FONT><BR><BR><BR><BR>Ανέβασε και τα 2 στο ίδιο folder.<BR></FONT></P>

Απάντηση από:Kostas

Πώς μπορώ να κάνω έρευνα σε περισσότερα απο 1 πεδία? π.χ. 6 διαφορετικά πεδία (προσπάθησα να το κάνω αλλα μου βγάζει πολλά προβλήματα)

Απάντηση από:tony

Θα στο ετοιμάσω και αυτό. Σε λίγο

Απάντηση από:Kostas

Ευχαριστώ πολύ.... (εχω γινει σπαστικός και το ξέρω)

tip: * F5 για νέο tip

Πίσω στην προηγούμενη σελίδα