Recomendado: Use o filtro para obter uma recuperação secundária de informações Pense em uma pergunta: como obter pesquisa secundária com base na primeira pesquisa? Geralmente, nossa abordagem é salvar as condições de pesquisa durante a primeira pesquisa e combinar duas condições de pesquisa durante a segunda pesquisa para executar uma nova consulta no banco de dados, como: a primeira pesquisa:
'--------------------------------------------------------------------------
'Função da função: Block HTML Código
Parâmetros: Informações de entrada do usuário Strinput
'--------------------------------------------------------------------------
função funinput (strinput)
se não é Isnull (str) então
Strinput = Substitua (Strinput, <, <)
Strinput = substituir (strinput,>,>)
Strinput = Substitua (Strinput, Chr (32),)
Strinput = Substitua (Strinput, Chr (34),)
Strinput = Substitua (Strinput, Chr (39), ')
Strinput = Substitua (Strinput, Chr (13),)
Funinput = strinput
final se
Função final
'--------------------------------------------------------------------------
'Função da função: impedir a injeção de SQL
Parâmetros: dados substituídos pelo usuário
'Tipo de dados blotype
'Valor do parâmetro: dados numéricos verdadeiros
'Dados de caracteres falsos
'--------------------------------------------------------------------------
function FUNSQL (STRVALUE, BLOTYPE)
Se o blotipo então
Se fornumérico (strvalue), então
FUNSQL = CLNG (STRVALUE)
outro
Strvalue = 0
final se
outro
se não é IsNull (strvalue) então
Strvalue = lcase (strvalue)
Strvalue = substituir (strvalue, ',' ')
Strvalue = substitua (strvalue, selecione)
Strvalue = substituir (strvalue, atualizar)
Strvalue = substituir (strvalue, inserir)
Strvalue = substituir (strvalue, excluir)
Strvalue = substituir (strvalue,;,)
Strvalue = substituir (strvalue ,,)
Strvalue = substituir (strvalue, chr (255),)
Strvalue = substituir (strvalue,*,)
Strvalue = substituir (strvalue,%)
final se
final se
FUNSQL = STRVALUE
Função final
'----------------------------------------------------------------------------
'Função da função: conversão de tipo comum
'Parâmetros: _Type Data Type
Dados de valor
'Valor do parâmetro: _type 1: converter em dados numéricos
'_Type 2: converta em dados de caracteres
'_Type 3: converta em dados booleanos
'----------------------------------------------------------------------------
função FUSWITCH (value_, type_)
em erro de erro em seguida
Selecione Tipo de caixa_
Caso 1
se é numérico (value_) então
se não é isnull (value_) então
Funswitch = clng (value_)
outro
Funswitch = 0
final se
outro
Funswitch = 0
final se
Caso 2
se não é isnull (value_) então
Funswitch = cstr (value_)
outro
FUSWITCH =
final se
Caso 3
se não é isnull (value_) e isnumeric (value_) então
FUSWITCH = CBOOL (value_)
outro
FUSWITCH = FALSO
final se
caso mais
Response.Redirect (Error.asp? Err = Por favor, especifique o tipo de dados a ser transferido em Funswitch!)
final Selecione
se err.number <> 0 então
Response.Redirect (Error.asp? Err = Erro desconhecido ocorreu durante a conversão de dados!)
err.clear
final se
Função final
'' --------------------------------------------------------------------------
'Função da função: verifique se os dados vêm de fora
Parâmetros: Nenhum
'--------------------------------------------------------------------------
função checkfrom ()
server_v1 = cstr (request.Servervariables (http_referer))
server_v2 = cstr (request.Servervariables (server_name))
Se MID (server_v1,8, len (server_v2)) <> server_v2 então
checkfrom = true
outro
checkfrom = false
final se
Função final
'' --------------------------------------------------------------------------
'Função da função: JS Prompt
Parâmetros: Strurl: o endereço da página retornou depois de clicar em OK
'STRMSG: Informações prontas para diálogo
'--------------------------------------------------------------------------
Função funmsg (strurl, strmsg)
Response.Write <Script Language = 'JavaScript'> & _
Vbcrlf & alert (& strmsg &); & _
Vbcrlf & window.location = & strurl &; & _
Vbcrlf & </cript>
Função final
'----------------------------------------------------------------------------
'Função da função: Pagamento geral
Parâmetros: Contagem total de páginas do IntpageCount
'Intmypage atual contagem de páginas
'IntrecordCount Total Records
'Intpagesize Número de registros exibidos por página
'----------------------------------------------------------------------------
function funpage (intpageCount, intmypage, intrecordCount, intpagesize)
'No erro de erro
Dim INTFOR, INTLIST, INTLIST_B
Consulta escura, a, x, temp
ação = http: // & request.servervariables (http_host) & request.servervariables (script_name)
Query = split (request.servervariables (query_string), &)
Para cada x em consulta
a = divisão (x, =)
Se strComp (a (0), página, vbTextCompare) <> 0 então
temp = temp & a (0) & = & a (1) & & &
Final se
Próximo
Se Intmypage> 1 então
funpage = funpage & <a href = '& action &? & temp & page = 1' title = 'última página' class = 'no'> <font face = 'webdings'> 9 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intmypage-1 &' title = 'Page anterior' class = 'no'> <font face = 'webdings'> 7 </font> </a>
outro
funpage = funpage & <font face = 'webdings'> 9 </font>
funpage = funpage & <font face = 'webdings'> 7 </font>
final se
Se intlist <> 0 então
Se Cintmypage = intlist então
Intlist = intlist 5
final se
outro
Intlist = intmypage 5
final se
Se intlist-9 <1 então
intlist_b = 1
outro
intlist_b = intlist-9
final se
para intfor = intlist_b para intlist
Se intpor <= intpageCount, então
Se intfor = intmypage, então '---- Faça o texto da página atual vermelho e não puder ser clicado
funpage = funpage & strmode & <font color = '#ff0000'> <b> & ITFOR & </b> </font>
outro
FUNPAGE = FUNPAGE & STRMODE & <A HREF = '& ACTION &? & TEMP & PAGE = & ITFOR &' CLASS = 'NO'> & ITFOR & </A>
final se
final se
strmode = <font color = '#bbbbbb'> | </font>
próximo
Se Intmypage <intpageCount, então
funpage = funpage & <a href = '& action &? & temp & page = & intmypage 1 &' title = 'última página' class = 'no'> <font face = 'webdings'> 8 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intpageCount &' title = 'Última página' class = 'no'> <font face = 'webdings'>: </font> </a>
outro
funpage = funpage & <font face = 'webdings'> 8 </font>
funpage = funpage & <font face = 'webdings'>: </font> </a>
final se
funpage = <tabela width = '100%' border = '0' CellPacing = '0' CellPadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> atual & intmypage & Page & intpagesize & list/página total & intpageCount & Page/& IntrecordCount & List Records </td> & _
vbcrlf & <td width = '60%'align =' right '> & _
vbcrlf & <tabela 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>
se err.number <> 0 então
err.clear
Response.Redirect (Error.asp? Err = A função de paginação tem um erro, entre em contato com o administrador! |)
final se
Função final
'*************************************************************
'Nome da função: destaque
'Função: as palavras -chave de pesquisa são exibidas em cores destacadas
'O parâmetro strText é a string ou variável onde a string ou variável a ser destacada
'strfind é uma string ou variável a ser destacada,
'Antes de destacar o prefixo de código HTML é como: <font color = vermelho>
'Strafter destacado HTML Code Suffix: </font>
'****************************************************************
Destaque da função (strText, strfind, strbe antes, strafter)
NPOs dim
Dim Nlen
Dim Nlenall
nlen = len (strfind)
nlenall = nlen len (strbefore) len (strafter) 1
Destaque = strText
Se nlen> 0 e len (destaque)> 0 então
npos = instrum (1, destaque, strfind, 1)
Fazer enquanto npos> 0
Destaque = esquerda (destaque, npos - 1) & _
StrBefore & Mid (Highlight, NPOs, Nlen) e Strafter & _
MID (destaque, NPOS NLEN)
npos = instrum (npos nlenall, destaque, strfind, 1)
Laço
Final se
Função final
Compartilhar: ASP 3.0 Programação Avançada (31) 7.1.2 A descoberta e o manuseio de erros semânticos ou de tempo de execução são irritantes, mas você encontrará algum outro tipo de erro realmente emocionante na programação - erro semântico (erro semântico), ou & ld