Problema de consulta de múltiples condiciones de acceso ASP
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