#TITLE=Sintaxe e funções comuns do ASP
#INFO
Algumas sintaxes e funções personalizadas comumente usadas em ASP
#SORT=n
#T= ===Sintaxe ASP comum===
#T=============================
#T=relacionado ao banco de dados
#T= Conecte-se ao banco de dados ACCESS
<%
Dim DBName,Conn
DBName^! 'Define o caminho e o nome do banco de dados
SET Conexão = Server.CreateObject(ADODB.Connection)
Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & Server.MapPath(DBName)
%>
#T= Conecte-se ao banco de dados MS SQL
<%
Dim Conexão
SET Conexão = Servidor.CreateObject (ADODB.conexão)
Conn.Open PROVIDER=SQLOLEDB;DATA SOURCE=Nome do servidor SQL ou endereço IP;UID=conta de login do banco de dados;PWD=senha do banco de dados;DATABASE=nome do banco de dados
%>
#T= Criar conjunto de registros
SET ^!=Server.CreateObject(ADODB.recordset)
#T= Executar comando SQL
RS.Open SQL,conn,1,1
#T= Executar comando SQL
Conexão.Executar(^!)
#T= RS executa comandos SQL diretamente
DEFINIR RS = Conn.Executar(^!)
#T= Fechar o conjunto de registros
RS.FECHAR
DEFINIR RS=NADA
#T= Fechar banco de dados
Conexão Fechar
SETConn=Nada
#T=============================
#T=Variáveis do servidor relacionadas
#T= Obtenha o endereço da página anterior
Solicitação.ServerVariables(HTTP_REFERER)
#T= Obtenha o nome do servidor 1
Solicitação.ServerVariables(SERVER_NAME)
#T= Obtenha o nome do servidor 2
Solicitação.ServerVariables(HTTP_HOST)
#T= Obter IP do servidor
Solicitação.ServerVariables(LOCAL_ADDR)
#T= Obter IP do usuário
Solicitação.ServerVariables(Remote_Host)
#T= Obtenha o IP1 real do usuário
Solicitação.serverVariables(REMOTE_ADDR)
#T= Obtenha a função IP real do usuário
Função GetRealIP()
GetRealIP = Solicitação.ServerVariables(HTTP_X_FORWARDED_FOR)
SE(GetRealIP = )ENTÃO GetRealIP = Request.ServerVariables(REMOTE_ADDR)
Função final
#T= Obter porta do servidor
Solicitação.ServerVariables(SERVER_PORT)
#T= Obtenha o sistema operacional do servidor
Solicitação.ServerVariáveis(SO)
#T= Obtenha o caminho absoluto do servidor
Solicitação.ServerVariables(APPL_PHYSICAL_PATH)
#T= Obtenha o caminho absoluto deste arquivo 1
Requet.ServerVariables(PATH_TRANSLATED)
#T= Obtenha o caminho absoluto deste arquivo 2
Servidor.mappath(Request.ServerVariables(SCRIPT_NAME))
#T= Obtenha o caminho relativo deste arquivo 1
Solicitação.ServerVariáveis(URL)
#T= Obtenha o caminho relativo deste arquivo 2
Solicitação.ServerVariables(SCRIPT_NAME)
#T= Obtenha o caminho relativo deste arquivo 3
Solicitação.ServerVariables(PATH_INFO)
#T= Obtenha os parâmetros após a barra de endereço
Solicitação.ServerVariables(QUERY_STRING)
#T= Obtenha informações do sistema do servidor
Solicitação.ServerVariables(HTTP_USER_AGENT)
#T= Detecção de componentes do servidor
<%
Função IsObjInstalled(strClassString)
Em caso de erro, retomar o próximo
IsObjInstalled = Falso
Errar = 0
DimxTestObj
SET xTestObj = Server.CreateObject(strClassString)
SE(0 = Err)ENTÃO IsObjInstalled = Verdadeiro
SET xTestObj = Nada
Errar = 0
Função final
'SE(IsObjInstalled(Persits.Upload)=True)ENTÃO
' Response.Write suporta componente AspUpload
'OUTRO
' Response.Write não suporta o componente AspUpload
'TERMINAR SE
%>
#T= Obtenha a localidade do cliente
^!Request.ServerVariables(HTTP_ACCEPT_LANGUAGE)
#T= Obtenha informações do cliente: HTTP_USER_AGENT
^!Request.ServerVariables(HTTP_USER_AGENT)
#T= Obtenha o valor do elemento de valor do formulário (Formulário)
Solicitação.Formulário(^!)
#T= Obtenha o valor passado pela URL
Solicitação.QueryString(^!)
#T= Obtenha o endereço URL completo
Função GetUrl()
GetUrl=http://&Request.ServerVariables(SERVER_N ... .ServerVariables(URL)
IF(Request.ServerVariables(QUERY_STRING)<>)THEN GetURL=GetUrl&?& Request.ServerVariables(QUERY_STRING)
Função final
#T=============================
#T=função personalizada
#T= Filtrar caracteres HTML
<%
'Função de filtro de caracteres HTML
Função HTMLEncode(str)
SE(str <> )ENTÃO
str = Substituir(str, &, &)
str = Substituir(str, >, >)
str = Substituir(str, <, <)
str = Substituir(str, Chr(32), )
str = Substituir(str, Chr(9), )
str = Substituir(str, Chr(34), )
str = Substituir(str, Chr(39), ')
str = Substituir(str, Chr(13), )
str = Substituir(str, Chr(10) & Chr(10), </P><P>)
str = Substituir(str, Chr(10), <BR>)
str = Substituir(str, Chr(255), )
TERMINAR SE
HTMLEncode=str
Função final
%>
#T= Verifique se a página anterior foi enviada deste site
<%
'Verifica se a página anterior foi enviada deste site
'Retorno: Verdadeiro, Falso
'================================================ ===============
Função IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables(HTTP_REFERER))
sServer_Name = CStr(Request.ServerVariables(SERVER_NAME))
SE(Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name)ENTÃO
IsSelfRefer = Verdadeiro
OUTRO
IsSelfRefer = Falso
TERMINAR SE
Função final
%>
#T= Limpar todas as tags HTML
<%
'Limpar tags HTML
Faixa de funçãoHTML(htmlStr)
Escurecer regEx
SETregEx = NovoRegexp
regEx.IgnoreCase = Verdadeiro
regEx.Global = Verdadeiro
regEx.Pattern = <.+?>
htmlStr = regEx.Replace(htmlStr,)
htmlStr = Substituir(htmlStr, <,<)
htmlStr = Substituir(htmlStr, >,>)
htmlStr = Substituir(htmlStr,chr(10),)
htmlStr = Substituir(htmlStr,chr(13),)
stripHTML = htmlStr
SET regEx = Nada
Função final
%>
#T= Obtenha o comprimento da string
<%
'Função para encontrar o comprimento de uma string
Função GetLength(str)
Comprimento escuro
Para i=1 para Len(str)
SE(Asc(Mid(str,i,1))<0 ou Asc(Mid(str,i,1))>256)ENTÃO
Comprimento=Comprimento+2
OUTRO
Comprimento=Comprimento+1
TERMINAR SE
Próximo
GetLength=Comprimento
Função final
%>
#T= intercepta a string de comprimento especificada
<%
'Intercepte uma string de comprimento especificado, substitua o excesso por...
Função StrLeft(str,strlen)
SE(str = )ENTÃO
StrEsquerda =
Função de saída
TERMINAR SE
Dim l,t,c,i
str = Substituir(Substituir(Substituir(Substituir(str, , ),,chr(34)),>,>),<,<)
eu=len(str)
t=0
Para i = 1 para l
c=Abs(Asc(Médio(str,i,1)))
SE(c>255)ENTÃO
t=t+2
OUTRO
t=t+1
TERMINAR SE
SE(t>strlen)ENTÃO
StrLeft = esquerda(str,i) & ...
Sair para
OUTRO
StrEsquerda = str
TERMINAR SE
Próximo
StrLeft = Substituir(Substituir(Substituir(Substituir(StrLeft, , ),chr(34),),>,>),<,<)
Função final
%>
#T= Obtenha parâmetros de envio seguros
<%
'================================================ ===============
'Verificação de injeção SQL
'Função de função: filtrar aspas simples em parâmetros de caracteres, julgar parâmetros numéricos e atribuir um valor de 0 se não for um tipo numérico
'Significado do parâmetro: str ---- parâmetros a serem filtrados
'strType ---- tipo de parâmetro, dividido em tipo de caractere e tipo numérico, o tipo de caractere é s, o tipo numérico é i
'================================================ ===============
Função CheckStr(str,strType)
Dim strTmp
strTmp =
SE(strTipo=s)ENTÃO
strTmp = Substituir(Trim(str),','')
ELSEIF(strType=i)ENTÃO
SE(IsNumeric(str)=Falso)ENTÃO str=Falso
strTmp = str
OUTRO
strTmp = str
Fim SE
CheckStr = strTmp
Função final
%>
#T= Filtrar caracteres ruins (BadWord)
<%
'Filtrar caracteres ruins (BadWords)
Função ChkBadWords(fString)
Dim BadWords,bwords,i
Palavrões = Foda-se | foda-se | foda-se ele | foda-se | foda-se | cachorro | bastardo | boceta | pau | bastardo | estupro | fazer amor | virgem | zemin | falun | falun | hongzhi | falun
SE(Não(IsNull(BadWords) ou IsNull(fString)))ENTÃO
bwords = Dividir(BadWords, |)
Para i = 0 para UBound (bwords)
fString = Substituir(fString, bwords(i), string(Len(bwords(i)),*))
Próximo
ChkBadWords =fString
TERMINAR SE
Função final
%>
#T= Gerar senha aleatória de comprimento personalizado
<%
'Gera uma senha aleatória de tamanho personalizado
Função makePassword(maxLen)
Dim strNewPass
Dim whatsNext, superior, inferior, intCounter
Randomizar
Para intCounter = 1 Para maxLen
o que éPróximo = Int((1 - 0 + 1) * Rnd + 0)
SE(o que éPróximo = 0)ENTÃO
'personagem
superior=90
inferior = 65
OUTRO
superior=57
inferior = 48
TERMINAR SE
strNewPass = strNewPass & Chr(Int((superior - inferior + 1) * Rnd + inferior))
Próximo
makePassword = strNewPass
Função final
'Resposta.Write makepassword(8)
%>
#T= Manter formato em HTML ao preencher Textarea
<%
'================================================ ===============
'Remover formato HTML, usado ao buscar valores do banco de dados e preencher a caixa de entrada
'Nota: value=? deve usar aspas duplas aqui
'================================================ ===============
Função emHTML(str)
Temperatura fraca
temperatura = str
emHTML =
Se IsNull(sTemp) = True então
Função de saída
Terminar se
temperatura = Substituir (temp, &, &)
temp = Substituir(temperatura, <br>,chr(13))
temperatura = Substituir(temperatura, <, <)
temperatura = Substituir(temperatura, >, >)
temperatura = Substituir (temperatura, , Chr (34))
inHTML = temp
Função final
%>
#T= Função de verificação de expressão de tabela regular
<%
'Função de verificação de expressão regular patrn-expressão regular string-string que precisa ser verificada
'================================================ ===============
Função RegExpTest(patrn, string)
Dim regEx, retVal 'Cria variáveis.
SET regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = False 'Defina se deve diferenciar maiúsculas de minúsculas.
retVal = regEx.Test(strng) 'Executa teste de pesquisa.
RegExpTest = retVal 'Valor de retorno, se não corresponder, retorna falso, se corresponder, retorna verdadeiro
DEFINIR regEx = NADA
Função final
%>
#T= Gera string aleatória
<%
'Gera uma string aleatória
FunçãoRndCode()
Dim CodeSet,AmountSet
Conjunto de códigos = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
AmountSet = 62 'Quantidade de texto
Randomizar
Dim vCode(10), vCodes,i
Para i = 0 a 9
vCode(i) = Int(Rnd * ValorSet)
vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
Próximo
RndCode=vCodes
Função final
%>
#T=============================
#T=Operações relacionadas ao FOE
#T= Determine se o diretório existe
<%
Função IsFloderExist(strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
SE(FSO.FolderExists(strFolderName))ENTÃO
IsFloderExist = Verdadeiro
OUTRO
IsFloderExist = Falso
TERMINAR SE
DEFINIR FSO=NADA
Função final
%>
#T= Criar diretório
<%
Função CreateFolder(strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
SE(FSO.FolderExists(strFolderName) = Falso)ENTÃO
FSO.CreateFolder(strNomeDaPasta)
TERMINAR SE
DEFINIR FSO=NADA
Função FIM
%>
#T= Excluir diretório
<%
Função DeleteFolder(strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
SE(FSO.FolderExists(strFolderName))ENTÃO
FSO.DeleteFolder(strNomeDaPasta)
TERMINAR SE
DEFINIR FSO=NADA
Função FIM
%>
#T= Determine se o arquivo existe
<%
Função IsFileExist(strNomeArquivo)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
SE(FSO.FileExists(strNomeArquivo))ENTÃO
IsFileExist = Verdadeiro
OUTRO
IsFileExist = Falso
TERMINAR SE
DEFINIR FSO=NADA
Função final
%>
#T= excluir arquivo
<%
Função DeleteFile(strNomeArquivo)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
SE(FSO.FileExists(strNomeArquivo))ENTÃO
FSO.DeleteFile(strNomeArquivo)
TERMINAR SE
DEFINIR FSO=NADA
Função FIM
%>
#T=============================
#T= Diversas funções comumente usadas por ladrões de ASP
<%
Função ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn =
Para i = 1 para LenB(vIn)
EsteCharCode = AscB(MidB(vIn,i,1))
SE(EsteCharCode <&H80)ENTÃO
strReturn = strReturn & Chr(ThisCharCode)
OUTRO
PróximoCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
eu = eu + 1
TERMINAR SE
Próximo
ByteToStr = strReturn
Função final
Função GetHttpPageContent(url,Method,SendStr)
Recuperação escura
Recuperação SET = Server.CreateObject(Microsoft.XMLHTTP)
Com recuperação
.Método aberto, url, falso, ,
.setRequestHeader Tipo de conteúdo, aplicativo/x-www-form-urlencoded
.Send(SendStr)
GetHttpPageContent=.ResponseBody
Terminar com
Recuperação SET = Nada
GetHttpPageContent=ByteToStr(GetHttpPageContent)
Função final
Função RegExpText(strng,regStr)
Dim regEx,Correspondência,Correspondências,RetStr
DEFINIR regEx = Novo RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = Verdadeiro
regEx.Global = Verdadeiro
SET Correspondências = regEx.Execute(strng)
Para cada partida nas partidas
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Próximo
RegExpText = RetStr
definir regEx = nada
Função final
Função StreamBytesToBstr(strBody, CodeBase)
Dim objStream
DEFINIR objStream = Server.CreateObject(Adodb.Stream)
Com objStream
.Tipo = 1
.Modo = 3
.Abrir
.Escreva strBody
.Posição = 0
.Tipo = 2
.Charset = CodeBase
StreamBytesToBstr=.ReadText
.Fechar
Terminar com
SET objStream = Nada
Função final
%>