Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Motore Ricerca Mysql

  1. #1

    Motore Ricerca Mysql

    Salve ragazzi,
    ho cercato di realizzare un motore di ricerca in ASP su un db mysql ma mi sa che non pur funzionando non è gran che efficace...sapete consigliarmi qualche script gia approntato a cui poter dare uno sguardo?

    Saluti

  2. #2
    Utente di HTML.it L'avatar di 99eros9
    Registrato dal
    Jan 2003
    Messaggi
    2,637
    Si tratta di interrogare la base dati. Per quanto riguarda i criteri di ricerca, ognuno ha le sue esigenze quindi uno script giá fatto mi sembra superfluo. Magari se posti un po di codici sarebbe piú semplice capire.
    Tala är silver men tiga är guld!
    Pubblica il tuo curriculum
    Segnala il tuo sito
    Ancl

  3. #3
    Si ecco, io ho fatto questa sintassi:
    codice:
    PageName = Request.ServerVariables("PATH_INFO")
    SearchMethod = Request.ServerVariables("REQUEST_METHOD")
    
    search1=Cstr(Request.form("search"))
    search=replace(replace(trim(search1),"'",""),"""","")
    table1=Cstr(Request.form("tabella"))
    table=replace(replace(trim(table1),"'",""),"""","")
    page = 1
    
    respage = 10
    
    If (len(search) = 0 or (table = "nosel") Then
    	response.write "inserire il criterio di ricerca"
    end if
    
    if len(search) > 0 then
    
    	sql = "select * from " & table & " where"
    
    	ArrSearch = Split(search)
    	x = 0
    	for each Word In ArrSearch
    
    	If Not x = UBound(ArrSearch) Then
    	sql = sql & " keywords like '%" & word & "%' and"
    Else
    	sql = sql & " keywords like '%" & word & "%'"
    End If
    
    	x = x + 1
    Next
    
    set rs = server.createobject("adodb.recordset")
    rs.CursorLocation = 3
    rs.CacheSize = 10
    rs.open sql, conn, 1, 3
    
    if rs.eof then
    	response.write "la tua ricerca non ha prodotto nessun risultato"
    end if
    
    if not rs.eof then
    	response.write "'"& =Replace(rs("titolo"),vbCrLf,"
    ")%> &"'"
    	rs.movenext
    	end if
    	next
    end if
    
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    Praticamente la mia esigenza è quella di effettuare sempre all'interno dello stesso campo un valore ma da diverse tabelle ... come renderla funzionante?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.