Recomendado: Use el filtro para lograr la recuperación secundaria de la información Piense en una pregunta: ¿cómo lograr la búsqueda secundaria basada en la primera búsqueda? Por lo general, nuestro enfoque es guardar las condiciones de búsqueda durante la primera búsqueda, y combinar dos condiciones de búsqueda durante la segunda fila de búsqueda para realizar una nueva consulta en la base de datos, como: la primera búsqueda:
'----------------------------------------------------------------------
'Función de función: bloque de bloque HTML
'Parámetros: información de entrada del usuario de Strinput
'----------------------------------------------------------------------
función FunInput (Strinput)
Si no es isnull (str) entonces
Strinput = reemplazar (strinput, <, <)
Strinput = reemplazar (strinput,>,>)
Strinput = reemplazar (Strinput, chr (32),)
strinput = reemplazar (Strinput, chr (34),)
strinput = reemplazar (Strinput, chr (39), ')
strinput = reemplazar (Strinput, chr (13),)
FunInput = strinput
final si
función final
'----------------------------------------------------------------------
'Función de función: evitar la inyección de SQL
'Parámetros: datos enviados por el usuario StrValue
'Tipo de datos de blotipo
'Valor del parámetro: datos numéricos verdaderos
'Datos de carácter falso
'----------------------------------------------------------------------
Función FunSQL (StrValue, Blotype)
Si Blotype entonces
Si es unnumérico (StrValue) entonces
Funsql = clng (strValue)
demás
Strvalue = 0
final si
demás
Si no es isnull (StrValue) entonces
Strvalue = lcase (strvalue)
StrValue = reemplazar (strvalue, ',' ')
StrValue = reemplazar (strvalue, select,)
StrValue = reemplazar (strvalue, actualización,)
StrValue = reemplazar (strvalue, insertar,)
StrValue = reemplazar (strvalue, eliminar,)
StrValue = reemplazar (strValue,;,)
StrValue = reemplazar (strvalue ,,)
StrValue = reemplazar (strvalue, chr (255),)
StrValue = reemplazar (strValue,*,)
StrValue = reemplazar (strvalue,%,)
final si
final si
Funsql = strvalue
función final
'--------------------------------------------------------------------------
'Función de función: conversión de tipo común
'Parámetros: _Type Tipo de datos
'_ Datos de valor
'Valor del parámetro: _Type 1: Convertir a datos numéricos
'_Type 2: Convertir a datos de caracteres
'_Type 3: Convertir a datos booleanos
'--------------------------------------------------------------------------
función FunSwitch (value_, type_)
En el currículum de error siguiente
Seleccione Case Type_
Caso 1
if isNumeric (value_) entonces
Si no es isnull (value_) entonces
FunSwitch = CLNG (Value_)
demás
FunSwitch = 0
final si
demás
FunSwitch = 0
final si
Caso 2
Si no es isnull (value_) entonces
FunSwitch = Cstr (Value_)
demás
FunSwitch =
final si
Caso 3
Si no es isnull (value_) e isnumeric (value_) entonces
FunSwitch = cbool (value_)
demás
FunSwitch = falso
final si
caso
Response.Redirect (Error.asp? Err = ¡Especifique el tipo de datos que se transferirá en FunSwitch!)
final seleccionar
Si err.number <> 0 entonces
Respuesta.Redirect (error.asp? err = error desconocido se produjo durante la conversión de datos!)
Err.Clear
final si
función final
'' ----------------------------------------------------------------------
'Función de función: verifique si los datos provienen del exterior
'Parámetros: ninguno
'----------------------------------------------------------------------
función checkFrom ()
server_v1 = cstr (request.serverVariables (http_referer))
server_v2 = cstr (request.serverVariables (server_name))
Si mid (server_v1,8, len (server_v2)) <> server_v2 entonces
CheckFROM = True
demás
CheckFroM = False
final si
función final
'' ----------------------------------------------------------------------
'Función de función: cuadro de inmediato JS
'Parámetros: Strurl: la dirección de la página regresó después de hacer clic en Aceptar
'STRMSG: Información indicativa de diálogo
'----------------------------------------------------------------------
Función FunMsg (Strurl, Strmsg)
Response.write <script language = 'javascript'> & _
Vbcrlf & alert (& strmsg &); & _
Vbcrlf & window.location = & strurl &; & _
Vbcrlf & </script>
Función final
'--------------------------------------------------------------------------
'Función Función: Paging general
'Parámetros: IntpageCount Total Page Count
'Intmypage Recuento de página actual
'IntrecordCount Total Records
'IntPageSize Número de registros que se muestran por página
'--------------------------------------------------------------------------
function FunPage (IntPageCount, IntMyPage, IntrecordCount, IntpageSize)
'En el currículum de error a continuación
Dim intfor, intlist, intlist_b
Consulta dim, a, x, temperatura
Action = http: // & request.ServerVariAbles (http_host) y request.ServerVariAbles (script_name)
Query = Split (request.servervariables (query_string), &)
Para cada x en consulta
A = Split (x, =)
If strcomp (a (0), página, vbTextCompare) <> 0 entonces
temp = temp & a (0) & = & a (1) & & &
Final si
Próximo
Si intmypage> 1 entonces
FunPage = FunPage & <a href = '& Action &? & Temp & Page = 1' Title = 'Last Page' class = 'no'> <font face = 'Webdings'> 9 </font> </a>
FunPage = FunPage & <a href = '& Action &? & Temp & Page = & IntmyPage-1 &' title = 'anterior Page' class = 'no'> <font face = 'webdings'> 7 </font> </a>
demás
FunPage = FunPage & <font face = 'Webdings'> 9 </font>
FunPage = FunPage & <font face = 'Webdings'> 7 </font>
final si
Si intlist <> 0 entonces
Si cintmypage = intlist entonces
Intlist = intlist 5
final si
demás
Intlist = intmypage 5
final si
Si intlist-9 <1 entonces
intlist_b = 1
demás
intlist_b = intlist-9
final si
para intfor = intlist_b a intlist
Si intfor <= intpageCount entonces
Si intfor = intmyPage entonces '---- haz el texto de la página actual rojo y no se puede hacer clic
FunPage = FunPage & Strmode & <font color = '#ff0000'> <b> & intfor & </b> </font>
demás
FunPage = FunPage & Strmode & <a href = '& Action &? & Temp & Page = & intfor &' class = 'no'> & intfor & </a>
final si
final si
strmode = <font color = '#bbbbbb'> | </font>
próximo
Si intmypage <intpageCount entonces
FunPage = FunPage & <a href = '& Action &? & Temp & Page = & IntmyPage 1 &' Title = 'Last Page' class = 'no'> <font face = 'Webdings'> 8 </font> </a>
funpage = FunPage & <a href = '& Action &? & Temp & Page = & intpageCount &' title = 'Last Page' class = 'no'> <font face = 'webdings'>: </font> </a>
demás
FunPage = FunPage & <font face = 'Webdings'> 8 </font>
FunPage = FunPage & <font face = 'Webdings'>: </font> </a>
final si
FunPage = <table width = '100%' border = '0' CellPacing = '0' CellPadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> Current & Intmypage & Page & intpagesize & List/Page Total & intpageCount & Page/& IntrecordCount & List Records </td> & _
vbcrlf & <td width = '60%'align =' right '> & _
vbcrlf & <table width = '360' border = '0' CellPacing = '0' CellPadding = '0' CellPadding = '0'> <tr> & _
vbcrlf & <td align = 'right' style = font: 14px> & FunPage & </td> & _
vbcrlf & </tr> </table> </td> </tr> & _
VBCRLF & </Table>
Si err.number <> 0 entonces
Err.Clear
Response.Redirect (error.asp? err = la función de paginación tiene un error, ¡comuníquese con el administrador! |)
final si
función final
'************************************************************
'Nombre de la función: resaltar
'Función: las palabras clave de búsqueda se muestran en colores resaltados
'El parámetro strtext es la cadena o variable donde la cadena o la variable se resaltará
'strfind es una cadena o variable que se resaltará,
'El prefijo de código HTML resaltado por lo tanto es como: <font color = rojo>
'Strafter resaltado sufijo de código HTML: </font>
'**************************************************************
Resaltado de función (strText, strfind, strbefore, strafter)
Dim Opos
Dim Nlen
Dim nlenall
nlen = len (strfind)
nlenall = nlen len (strbefore) Len (strafter) 1
Destacado = strtext
Si nlen> 0 y Len (resaltado)> 0 entonces
Npos = Instr (1, resaltado, strfind, 1)
Haz mientras OSPOS> 0
Resaltar = izquierda (resaltar, NPOS - 1) y _
strbefore & mid (destacado, npos, nlen) y strafter & _
Mid (destacado, Npos nlen)
Npos = Instr (Npos nlenall, resaltado, strfind, 1)
Bucle
Final si
Función final
Compartir: Programación avanzada ASP 3.0 (31) 7.1.2 El descubrimiento y el manejo de errores semánticos o de tiempo de ejecución es molesto, pero encontrará otros errores realmente emocionantes en la programación: error semántico (error semántico), o y ld