Red de conocimiento del abogados - Bufete de abogados - Problema de consulta de múltiples condiciones de acceso ASP

Problema de consulta de múltiples condiciones de acceso ASP

1. Ordene de pequeño a grande, elimine "desc" o cámbielo a "asc" en la declaración SQL.

2. Para visualizar la paginación, consulte el siguiente proceso.

'=========================================== =======

Nombre del proceso: ShowSearchResult

Función: Mostrar resultados de búsqueda en la página.

Parámetros: Ninguno

'================================= =================

sub ShowSearchResult()

si página actual & ltentonces1

página actual= 1

Terminará si...

if (página actual-1)* MaxPerPage & gt; entonces la entrada total

If (totalPut mod MaxPerPage)= 0 , entonces

página actual = total put \ MaxPerPage

Otros

página actual = total put \ MaxPerPage+1

Si. .. entonces terminará

Terminará si...

Si la página actual = 1, entonces

sqlSearch = " select top " & amp página máxima

Otro

sqlSearch="select "

Terminará si...

sqlSearch = sqlSearch & amp" * de Bs _ Producto donde pasó = True "

Si BigClassName & lt& gt" "Entonces

sqlSearch = sqlSearch & amp y BigClassName = ' " & ampBigClassName & amp"

Si SmallClassName & lt& gt" "Entonces

sqlSearch = sqlSearch & amp y SmallClassName = ' " & ampSmallClassName & amp"

Terminará si...

Otro

if NombreEspecial & lt& gt" "Entonces

sqlSearch = sqlSearch & y NombreEspecial = ' " & nombre especial&name;"

Será terminar si...

Terminará si...

si la palabra clave<>""entonces

Seleccione el campo del caso

Caso "Título "

sqlSearch = sqlSearch & me gusta "%" & palabras clave & %' "

Caso "contenido"

sqlSearch = sqlSearch & me gusta "%" contenido. Palabras clave y; %' "

Otras situaciones

sqlSearch = sqlSearch & like "%"& Palabras clave y; %' "

Fin de selección

Termina si

sqlSearch = sqlSearch & amp "ordenado por Acklade"

Establezca rsSearch= Servidor. CrearObjeto("ADODB.

conjunto de registros")

Connecticut, 1, 1

Si rsSearch.eof y rsSearch.bof entonces

response.write " & ltp align='center ' > & ltbr & gt& ltbr & gtNo se encontró ningún producto o ningún producto

Otro

Si la página actual = 1, entonces

Llame a SearchResultContent()

Otros

if(página actual-1)* MaxPerPage & lt; luego inversión total

RS search (página actual-1)* MaxPerPage

Marcador tenue

bookmark=rsSearch.bookmark

Llamar a SearchResultContent()

Otro

currentPage=1

Llame a SearchResultContent()

Terminará si...

Terminará si...

Terminará si...

rsSearch.close

Establecer rsSearch=nada

Conector final

sub SearchResultContent()

tamañoI, strTemp, contenido< /p >

i=1

hacer mientras no rsSearch.eof

strTemp= " "

strTemp = strTemp & ampcstr(i) y " .& lta href='Bs_ProductShow.asp?ArticleID = " & ampRS search(" articulo ")& amp;& gt"

Si strField="Título "Entonces

strTemp = strTemp & & amp "& ltb >; & amp reemplazar (rsSearch ("título "), " " & amp palabras clave & amp "", " & ltfont color = rojo & gt " & amp palabras clave & amp " & lt/font > ) &"</b></font></a>

Otro

strTemp = strTemp &"<b>&RS search(" título ")& "& lt/b & gt; & lt/a >;

Terminará si...

strTemp = strTemp & "[" & , 1)"]"

contenido = left(no html(búsqueda RS(" contenido ")), 200)

Si strField="Contenido "entonces

strTemp = strTemp & amp "& ltdiv style = ' padding:10px 20px ' >& amp reemplazar (content.

Palabras clave & amp "", " & ltfont color = red & gt" & amp Palabras clave & amp " & lt/font >)& amp "...& lt;/div >; /p>

strTemp = strTemp & "& ltdiv style = ' padding:10px 20px ' >& content & "...</div >"

Si... entonces terminará

strTemp = strTemp & amp "</a>;

respuesta.escribir cadena

i=i+1

si i>MaxPerPage entonces salir de

rsSearch.movenext

bucle

conector final