Inicio>código fuente ASP>Otras categorias
Descargar

#: El desarrollo continúa - El desarrollo continúa: #

Ayudante ASP clásico

(TR) Es la primera biblioteca de utilidades ASP clásica, compacta y conocida (según mi investigación). Tiene una estructura que acorta las operaciones que realizas frecuentemente, te ayuda a acelerar el trabajo de tu base de datos y las etapas de desarrollo de software con practicidad y facilita tus desarrollos. Puede integrarlo con sus bibliotecas existentes, desarrollarlo y distribuirlo. No olvide darle una estrella y agregarlo a su lista de observación.

(ES) Primera utilidad auxiliar de codificación ASP clásica

Uso

(TR) Primero, incluya el archivo desde su ruta física en su archivo de proyecto. (ES) ... 

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

(TR) Si desea iniciar la biblioteca usted mismo, agregue el siguiente código a su proyecto para ejecutarlo primero (EN)... 

 < %
Set Query = New QueryManager
% >

(TR) Ahora solo necesitas usar la variable Query para todas tus operaciones. (ES) ... 

 < %
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

Insertar/Actualizar

Si queremos INSERTAR o ACTUALIZAR una consulta SQL, debemos mantener los valores de los nombres de entrada de nuestro formulario iguales a los nombres de las columnas de la tabla correspondiente. La biblioteca hace algunas cosas aquí.

  • ¿Coinciden los parámetros de nombre FORM/POST entrantes y los nombres de las columnas de la tabla de destino? Si no coincide, no se importarán los datos fuera del campo.
  • ¿Los datos entrantes coinciden con el tipo de datos de la columna de destino? (INT, VARCHAR/TEXTO LARGO, FECHA/FECHA HORA)
  • ¿Están vacíos los datos entrantes?

Como resultado, la biblioteca devuelve dos tipos de respuestas.

  • Si la operación INSERT tiene éxito, se devuelven el parámetro ID y el último número de registro agregado (INT).
  • Si la operación ACTUALIZAR tiene éxito, devuelve verdadero, si falla, devuelve falso (BOOLEAN).

- EjecutarExtender(INSERTAR)

(TR) La función RunExtend es una función de retorno simple y el parámetro INSERT devuelve el valor de clave primaria (ID) (INT) de la fila agregada como resultado de la operación. Este resultado informa si la operación INSERT fue exitosa o no. (ES) ... 

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

(TR) Se puede utilizar, por ejemplo, la siguiente estructura. (ES) ... 

 < %
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) La estructura del formulario debería ser la siguiente. (ES) ... 

 < 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) La estructura de la base de datos es la siguiente (EN)...

NOMBRE DEL CAMPO TIPO
IDENTIFICACIÓN (INT) Clave primaria
NOMBRE (VARCHAR)
APELLIDO (VARCHAR)
CUMPLEAÑOS (FECHA)

- EjecutarExtender(ACTUALIZAR)

(TR) La función RunExtend es una función de retorno simple y el parámetro ACTUALIZAR devuelve verdadero o falso (booleano) como resultado de la operación. Este resultado informa si la operación ACTUALIZAR fue exitosa o no (ES)... 

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

(TR) Se puede utilizar, por ejemplo, la siguiente estructura. (ES) ... 

 < %
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) La estructura del formulario debería ser la siguiente. (ES) ... 

 < 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) La estructura de la base de datos es la siguiente (EN)...

NOMBRE DEL CAMPO TIPO
IDENTIFICACIÓN (INT) Clave primaria
NOMBRE (VARCHAR)
APELLIDO (VARCHAR)
CUMPLEAÑOS (FECHA)

-Recopilar formulario y ejecutar (obsoleto)

(TR) La combinación de los comandos Collector y Run en la primera versión de la biblioteca es la siguiente. La función CollectForm recopila los parámetros Request.Form que vienen con el método FORM Post y los combina para INSERTAR o ACTUALIZAR. No existe ningún mecanismo de control. El error de parámetro regresa a Error Raise. (ES) ... 

 < %
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) Devuelve el resultado de una consulta SQL como verdadero o falso . Se utiliza como sustituto del EOF en métodos tradicionales. (ES) ... 

 < %
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 devolver el valor máximo de ID (PrimaryKey) en cualquier tabla y condición. No hay verificación de errores. (ES) ... 

 Query.MaxID( "tbl_tableName" )

(TR) Para situaciones condicionales (EN)... 

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

Ejecutar SQL [ conn.Execute(sqlQuery) ]

(TR) La única personalización de esta función es que los datos que se recibirán con Request.Querystring se pueden reemplazar . Si la estructura de la URL es /?Cmd=Update&ID=123, el parámetro {ID} se actualiza a 123 en la consulta. . Implementa el parámetro estándar obj.Execute(sql). (ES) ... 

 < %
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 " )
% >

Solicitud y respuesta

- Solicitud.Form/QueryString

(TR) Si desea obtener un formulario o datos de cadena de consulta, puede obtenerlos como Query.Data("key") o en línea como {key} . Su software capturará todos los parámetros incluso en la estructura de URL 404. Se puede utilizar en lugar de Requet.Form(clave) o Request.QueryString(clave). (ES) ... 

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

(TR) Si no se encuentra la existencia de los datos (Nulo, Vacío), el resultado siempre se puede devolver con Vacío. (ES) ... 

 /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)
% >

- Respuesta.Redireccionamiento

(TR) Response.Redirect es un comando que puede usar en lugar de "url.asp?some=string" después de completar su transacción. Puede procesar los datos de la Solicitud actual. Las actualizaciones paramétricas se pueden utilizar para recuperar parámetros de formulario o cadena de consulta. (ES) ... 

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

- Respuesta.Escribir

(TR) En lugar de utilizar el estándar Response.Write("test") , se puede utilizar Query.Echo("test") . (ES) ... 

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

- Respuesta.Fin

(TR) Se puede utilizar Query.Kill() en lugar del estándar Response.End() . (ES) ... 

 < %
Query.Kill()
% >

Ayudantes

-Existir()

(TR) Puede comprobar la existencia de cualquier variable. Realiza comprobaciones IsNull, IsEmpty, Len()>0 y devuelve un resultado verdadero o 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 (cadena, matriz)

(TR) Busca cualquier dato de cadena en un grupo de matrices. Realiza una verificación de coincidencia exacta y aplica Trim() automático. Si se encuentra un resultado, se devuelve el número de índice. Si no se encuentra ningún resultado, se devuelve un resultado nulo . (ES) ... 

 < %
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 (nombre del método)

(TR) En algunos casos, puede limitar el acceso al área de transacciones correspondiente solo mediante determinados métodos. Por ejemplo, si utiliza Método="POST" para un formulario, puede confirmar en el saludo que el método es efectivamente "POST". (ES) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Expandir
Información adicional
Aplicaciones relacionadas
Recomendado para ti
Información relacionada Todo