Se instr(Request("id")," ")>0 ou instr(Request("id"),"'")>0 então response.redirect "index.asp" |
InStr([iniciar, ]string1, string2[, comparar]) |
da descrição | do parâmetro |
é | opcional. Expressão numérica que define a posição inicial de cada pesquisa. Se omitido, a pesquisa começará na posição do primeiro caractere. Se start contiver Null, ocorrerá um erro. Se comparar for especificado, o parâmetro start será obrigatório. |
String1 | é obrigatória. Aceita uma expressão de string para pesquisar. |
String2 | Obrigatório. A expressão de string a ser pesquisada. |
Comparar | é opcional. Um valor numérico que indica o tipo de comparação usado ao avaliar substrings. Consulte a seção "Configurações" para valores. Se omitido, uma comparação binária será realizada. O parâmetro de comparação pode ter os seguintes valores: Descrição do valor constante vbBinaryCompare 0 Executa uma comparação binária. vbTextCompare 1 Executa comparação de texto. |
Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' A string a ser pesquisada. SearchChar = "P" 'Procura por "P". MyPos = Instr(4, SearchString, SearchChar, 1) 'A comparação de texto retorna 6 começando no quarto caractere. MyPos = Instr(1, SearchString, SearchChar, 0) 'A comparação binária retorna 9 começando no primeiro caractere. MyPos = Instr(SearchString, SearchChar) 'Retorna 9. ' O padrão é comparação binária (último argumento omitido). MyPos = Instr(1, SearchString, "W") 'A comparação binária retorna 0 a partir do caracter 1 ("W" não encontrado). |
se instr(Request("id")," ")>0 ou instr(Request("id"),"'")>0 então |