Página Inicial>Código fonte ASP>Outras categorias
Baixar

#: O desenvolvimento continua - O desenvolvimento continua:#

Ajudante ClassicASP

(TR) É a primeira biblioteca utilitária ASP clássica compacta conhecida (de acordo com minha pesquisa). Possui uma estrutura que encurta as operações que você realiza com frequência, ajuda a agilizar o trabalho de banco de dados e as etapas de desenvolvimento de software com praticidade e facilita seus desenvolvimentos. Você pode integrá-lo às suas bibliotecas existentes, desenvolvê-lo e distribuí-lo. Não se esqueça de dar uma estrela e adicioná-lo à sua lista de observação.

(PT) Primeiro utilitário auxiliar de codificação ASP clássico

Uso

(TR) Primeiro, inclua o arquivo do seu caminho físico no arquivo do projeto. (PT) ... 

 <!--#include file= "/{path}/casphelper.asp" -->

(TR) Se você mesmo deseja iniciar a biblioteca, adicione o código abaixo ao seu projeto para executar primeiro (PT) ... 

 < %
Set Query = New QueryManager
% >

(TR) Agora você só precisa usar a variável Query para todas as suas operações. (PT) ... 

 < %
Dim Query
Set Query = New QueryManager
  Query.Debug          = False
  Query.Host           = "localhost"
  Query.Database       = "my_db_name"
  Query.User           = "my_db_username"
  Query.Password       = "MyS3c3tP4ssw0d"
  Query.Connect()
% >

SQL

Inserir/Atualizar

Se quisermos INSERT ou UPDATE uma consulta SQL, precisamos manter os valores do nome de entrada do formulário iguais aos nomes das colunas da tabela relevante. A biblioteca faz algumas coisas aqui.

  • Os parâmetros de nome do FORM/POST de entrada e os nomes das colunas da tabela de destino correspondem? Se não corresponder, os dados fora do campo não serão importados.
  • Os dados recebidos correspondem ao tipo de dados da coluna de destino? (INT, VARCHAR/LONGTEXT, DATA/DATETIME)
  • Os dados recebidos estão vazios?

Como resultado, dois tipos de respostas são retornados da biblioteca.

  • Se a operação INSERT for bem-sucedida, o parâmetro ID e o último número de registro adicionado (INT) serão retornados.
  • Se a operação UPDATE for bem-sucedida, retorna verdadeiro; se falhar, retorna falso (BOOLEAN).

- ExecutarExtend(INSERIR)

(TR) A função RunExtend é uma função de retorno simples e o parâmetro INSERT retorna o valor PrimaryKey (ID) (INT) da linha adicionada como resultado da operação. Este resultado informa se a operação INSERT foi bem-sucedida ou não. (PT) ... 

 Query.RunExtend( "INSERT" , "table_name" , Null)

(TR) A seguinte estrutura pode ser usada como exemplo de uso. (PT) ... 

 < %
If Query.Data( "Cmd" ) = "InsertSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "INSERT" , "tbl_users" , Null)
    If IsNumeric( QueryResult ) Then
        Response.Write "Başarılı / Success"
        Response.Write "ID: " & QueryResult
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) A estrutura do formulário deve ser a seguinte. (PT) ... 

 < form action =" /?Cmd=InsertSample " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Insert </ button >
</ form >

(TR) A estrutura da base de dados é a seguinte (PT) ...

NOME DO CAMPO TIPO
EU IA (INT) Chave Primária
NOME (VARCHAR)
SOBRENOME (VARCHAR)
ANIVERSÁRIO (DATA)

- RunExtend (ATUALIZAÇÃO)

(TR) A função RunExtend é uma função de retorno simples e o parâmetro UPDATE retorna verdadeiro ou falso (booleano) como resultado da operação. Este resultado informa se a operação UPDATE foi bem-sucedida ou não (PT)... 

 Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )

(TR) A seguinte estrutura pode ser usada como exemplo de uso. (PT) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "UPDATE" , "tbl_uyeler" , "ID={ID}" )
    If QueryResult = True Then 
        Response.Write "Başarılı / Success"
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) A estrutura do formulário deve ser a seguinte. (PT) ... 

 < form action =" /?Cmd=UpdateSample&ID=123 " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Update </ button >
</ form >

(TR) A estrutura da base de dados é a seguinte (PT) ...

NOME DO CAMPO TIPO
EU IA (INT) Chave Primária
NOME (VARCHAR)
SOBRENOME (VARCHAR)
ANIVERSÁRIO (DATA)

-CollectForm & Run (obsoleto)

(TR) A combinação dos comandos Collector e Run na primeira versão da biblioteca é a seguinte. A função CollectForm coleta os parâmetros Request.Form que vêm com o método FORM Post e os combina para INSERT ou UPDATE. Não há mecanismo de controle. O erro do parâmetro retorna para Error Raise. (PT) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
	Query.CollectForm( "INSERT" )
	Query.AppendRows    = "EKSTRA1, EKSTRA2"
	Query.AppendValues  = "'Manuel Eklenecek Veri 1', 'Manuel Eklenecek Veri 2'"
	Query.Run( "INSERT INTO tbl_tableName(" & Query.Rows & ") VALUES(" & Query.Values & ")" )
	Query.Go( "?Msg=Success" )
End If
% >

RegistroExist(sql)

(TR) Retorna o resultado de uma consulta SQL como true ou false . É usado como substituto do EOF nos métodos tradicionais. (PT) ... 

 < %
Dim QueryResult
QueryResult = Query.RecordExist( "SELECT ID FROM tbl_users WHERE ID = 1" )
If QueryResult = True Then
    Response.Write "Record Exist"
Else
    Response.Write "Record Not Exist"
End If
% >

ID máx.

(TR) Permite que o valor máximo do ID (PrimaryKey) seja retornado em qualquer tabela e condição. Não há verificação de erros. (PT) ... 

 Query.MaxID( "tbl_tableName" )

(TR) Para situações condicionais (PT) ... 

 Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" )

Executar SQL [conn.Execute(sqlQuery)]

(TR) A única customização para esta função é que os dados a serem recebidos com Request.Querystring podem ser substituídos . Se a estrutura do URL for /?Cmd=Update&ID=123, o parâmetro {ID} será atualizado para 123 na consulta. . Ele implementa o parâmetro obj.Execute(sql) padrão. (PT) ... 

 < %
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = {ID} " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = " & Query.Data( "ID" ) & " " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = 1 " )
% >

Solicitação e Resposta

- Solicitação.Formulário/QueryString

(TR) Se você deseja obter dados de um formulário ou string de consulta, pode obtê-los como Query.Data("key") ou inline como {key} . Seu software irá capturar todos os parâmetros mesmo na estrutura de URL 404. Pode ser usado em vez de Requet.Form(key) ou Request.QueryString(key). (PT) ... 

 < %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >

(TR) Caso não seja encontrada a existência dos dados (Nulo, Vazio), o resultado sempre poderá ser retornado com Vazio. (PT) ... 

 /script.asp?Cmd=Test&Data1=value&Data2=&Data3=value3
/ 404 url/params/?Cmd=Test&Data1=value&Data2=&Data3=value3

< %
Response.Write Query.Data( "Cmd" )    ' return Test (String)
Response.Write Query.Data( "Data1" )  ' return value (String)
Response.Write Query.Data( "Data2" )  ' return 
Response.Write Query.Data( "Data3" )  ' return value3 (String)
% >

- Resposta.Redirecionamento

(TR) Response.Redirect é um comando que você pode usar em vez de "url.asp?some=string" após concluir sua transação. Você pode processar os dados da solicitação atual. As atualizações paramétricas podem ser usadas para recuperar parâmetros de formulário ou Querystring. (PT) ... 

 < %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% >

- Resposta.Escrever

(TR) Em vez de usar o padrão Response.Write("test") , Query.Echo("test") pode ser usado. (PT) ... 

 < %
Query.Echo( "test" )
% >

- Resposta.Fim

(TR) Query.Kill() pode ser usado em vez do Response.End() padrão. (PT) ... 

 < %
Query.Kill()
% >

Ajudantes

-Existir()

(TR) Pode verificar a existência de qualquer variável. Executa verificações IsNull, IsEmpty, Len()>0 e retorna resultado verdadeiro ou falso (booleano) (EN) ... 

 < %
str_value1 = ""
str_value2 = 2
If Query.Exist(str_value1) = True Then
    ' return true
End If

If Query.Exist(str_value2) = False Then
    ' return false
End If
% >

- FindInArray(String, Matriz)

(TR) Pesquisa quaisquer dados de string em um grupo de arrays. Ele executa uma verificação de correspondência exata e aplica Trim() automático. Se um resultado for encontrado, o número do índice será retornado. Se nenhum resultado for encontrado, o resultado nulo será retornado. (PT) ... 

 < %
Dim str_array
str_array = Array( "test" , "apple" , "fruit" , "banana" , "mercedes" )

Dim QueryResult
QueryResult = Query.FindInArray( "apple" , str_array)
If IsNull( QueryResult ) Then
    Query.Echo "Not Found"
Else
    Query.Echo "apple found in array index: " & QueryResult
End If
% >

- Método Permitido (Nome do Método)

(TR) Em alguns casos, você pode limitar o acesso à área de transação relevante apenas por determinados métodos. Por exemplo, se você usar Method="POST" para um formulário, poderá confirmar na saudação que o método é realmente "POST". (PT) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Expandir
Informações adicionais
Aplicativos Relacionados
Recomendado para você
Informações Relacionadas Todos