'------------------------------------------------ - -------------------------
'Função: Proteger código HTML
'Parâmetro: informações de entrada do usuário StrInput
'------------------------------------------------ - -------------------------
função FunInput(StrInput)
se não for nulo(Str) então
StrInput=RePlace(StrInput,<,<)
StrInput=substituir(StrInput,>,>)
StrinPut=substituir(Strinput,chr(32), )
stringinput=substituir(strinput,chr(34),)
stringinput=substituir(strinput,chr(39),')
stringinput=substituir(strinput,chr(13),)
FunInput=string
terminar se
função final
'------------------------------------------------ - -------------------------
'Função: Impedir injeção de SQL
'Parâmetro: dados enviados pelo usuário StrValue
'Tipo de dados BloType
'Valor do parâmetro: dados numéricos verdadeiros
'dados de caracteres falsos
'------------------------------------------------ - -------------------------
função FunSQL(StrValue,BloType)
se BloType então
se for Isnumérico(StrValue) então
FunSQL=clng(StrValue)
outro
StrValor=0
terminar se
outro
se não for isnull(StrValue) então
StrValue=lcase(StrValue)
StrValue=Substituir(StrValue,','')
StrValue=substituir(StrValue,selecionar,)
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,%,)
terminar se
terminar se
FunSQL=StrValue
função final
'------------------------------------------------ - ----------------------
'Função: Conversão de tipo comum
' Parâmetro: _Type tipo de dados
' _Dados de valor
'Valor do parâmetro: _Type 1: Converter em dados numéricos
' _Tipo 2: Converter em dados de caracteres
' _Tipo 3: Converter em dados booleanos
'------------------------------------------------ - ----------------------
função FunSwitch(Valor_,Tipo_)
em caso de erro, retome a seguir
selecione tipo de caso_
caso 1
se for numérico (Valor_) então
se não for nulo (Valor_) então
FunSwitch=clng(Valor_)
outro
FunSwitch=0
terminar se
outro
FunSwitch=0
terminar se
caso 2
se não for nulo (Valor_) então
FunSwitch=cstr(Valor_)
outro
FunSwitch =
terminar se
caso 3
se não for isnull(Value_) e isnumeric(Value_) então
FunSwitch=cbool(Valor_)
outro
FunSwitch=falso
terminar se
caso mais
response.redirect(Error.asp?err=Por favor, especifique o tipo de dados a ser transferido no FunSwitch!)
final selecionar
se err.número<>0 então
response.redirect(Error.asp?err=Ocorreu um erro desconhecido durante a conversão de dados!)
err.claro
terminar se
função final
''------------------------------------------------ -----------------------
'Função: Verifica se os dados vêm de fora
' Parâmetros: Nenhum
'------------------------------------------------ - -------------------------
verificação de função de()
server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Request.ServerVariables(SERVER_NAME))
se mid(servidor_v1,8,len(servidor_v2))<>servidor_v2 então
verificar de = verdadeiro
outro
verificar de=falso
terminar se
função final
''------------------------------------------------ -----------------------
'Função: caixa de prompt JS
' Parâmetros: StrURL: O endereço da página para retornar após clicar em OK
'StrMSG: informações do prompt da caixa de diálogo
'------------------------------------------------ - -------------------------
Função FunMsg(StrURL,StrMSG)
Response.write <script linguagem='javascript'>&_
Vbcrlf&alert(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
Vbcrlf&</script>
Função final
'------------------------------------------------ - ----------------------
'Função: Paginação universal
'Parâmetro: Intpagecount número total de páginas
'Número da página atual do Intmypage
'Intrecordcount número total de registros
'Intpagesize O número de registros exibidos em cada página
'------------------------------------------------ - ----------------------
função funpage(Intpagecount,Intmypage,Intrecordcount,Intpagesize)
'em caso de erro retome o próximo
dim Intfor,Intlist,intlist_b
Dim consulta, a, x, temp
ação = http:// & Request.ServerVariables(HTTP_HOST) & Request.ServerVariables(SCRIPT_NAME)
consulta = Dividir (Request.ServerVariables (QUERY_STRING), &)
Para cada consulta x In
uma = Divisão (x, =)
Se StrComp(a(0), page, vbTextCompare) <> 0 Então
temperatura = temperatura & a(0) & = & a(1) & &
Terminar se
Próximo
se intminhapágina>1 então
funpage=funpage & <a href='&action&?&temp&page=1' title='Página principal' class='no'><font face='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='Página anterior' class='no'><font face='Webdings'>7</font></a>
outro
funpage=funpage &<font face='Webdings'>9</font>
funpage=funpage&<font face='Webdings'>7</font>
terminar se
se Intlist<>0 então
se cintmypage = Intlist então
ListaInt=ListaInt+5
terminar se
outro
Intlist=Intminhapágina+5
terminar se
se intlist-9<1 então
listaint_b=1
outro
intlist_b=intlist-9
terminar se
para Intfor=intlist_b para Intlist
se intfor<=Intpagecount então
if intfor=Intmypage then '------- torna o texto da página atual vermelho e não clicável
funpage =funpage & strMode& <font color='#FF0000'><b>& Intfor & </b></font>
outro
funpage=funpage & strMode & <a href='&action&?&temp&page= & Intfor &' class='no'> & Intfor & </a>
terminar se
terminar se
strMode= <font color='#BBBBBB'>|</font>
próximo
se intmypage<intpagecount then
funpage=funpage& <a href='&action&?&temp&page=& Intmypage+1 &' title='Próxima 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>
terminar se
funpage=<table width='100%' border='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> &Intmypage& page&Intpagesize& registros atuais/total de páginas &Intpagecount& páginas/&Intrecordcount& registros</td>&_
vbcrlf&<td width='60%'align='right'>&_
vbcrlf&<table width='360' border='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</tabela>
se err.número<>0 então
err.claro
response.redirect(error.asp?err=Ocorreu um erro na função de paginação, entre em contato com o administrador!|)
terminar se
função final
'********************************************** *
'Nome da função: Destacar
'Função: As palavras-chave pesquisadas são exibidas em cores destacadas
'O parâmetro strText é a string ou variável que contém a string ou variável a ser destacada
'strFind é a string ou variável a ser destacada,
'strBeforeO prefixo do código HTML destacado é: <font color=red>
'strAfterO sufixo do código HTML destacado:</font>
'********************************************** ***
Destaque de função (strText, strFind, strBefore, strAfter)
DimPos
Dim nLen
Dim nLenTodos
nLen = Len(strEncontrar)
nLenAll = nLen + Len(strAntes) + Len(strDepois) + 1
Destaque = strText
Se nLen > 0 e Len(destaque) > 0 então
nPos = InStr(1, Destaque, strFind, 1)
Faça enquanto nPos > 0
Destaque = Esquerda(Destaque, nPos - 1) & _
strBefore & Mid(Destaque, nPos, nLen) & strAfter & _
Médio (destaque, nPos + nLen)
nPos = InStr(nPos + nLenAll, Destaque, strFind, 1)
Laço
Terminar se
Função final