Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 aporte:modulo 'generico' para insertar datos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Isladirectorio
Starting Member

Venezuela
14 Posts
Mensajes - 23 Oct 2008 :  14:43:42  Ver Perfil  Enviar Email  Visit Isladirectorio's Homepage
El presente es un procedimiento para recojer datos de un formulario típico 'registrarse' e insertarlos en una tabla. Los campos del formulario deben tener el mismo nombre que en las tablas.Este ejemplo se limita a campos de tipo alfanumérico. La dirección electrónica de correo se valida (que no exista en la base de datos) utilizando remote scripting, de manera que no hay que esperar a enviar el formulario, sino en el evento blur del campo email.

If Request.ServerVariables("REQUEST_METHOD")="POST" Then
On Error Resume Next
Dim Error_Number
set Error_Number=server.CreateObject("ADODB.Error")
dim arreglo,campos,valores,clave
campos="":valores=""
arreglo=split(Request.Form,"&")
if isarray(arreglo) then
for i=0 to UBOUND(arreglo)
subarreglo=split(arreglo(i),"=")
if not subarreglo(1)="" then
if campos="" then
campos=subarreglo(0)
valores="'" & subarreglo(1) & "'"
else
campos=campos & "," & subarreglo(0)
valores=valores & ",'" & subarreglo(1) & "'"
end if
end if
next
clave=GeneraPassword()

cadena="INSERT INTO ***TU_TABLA***(" & campos & ",clave,Fecha_Registro) SELECT " & valores & ",'" & clave & "',CONVERT(DATETIME,'" & DATE() & "',103)"
db.execute cadena,cuantos
if cuantos=1 then
'proceso que envía correo al usuario
'************
'************
Response.Write "El registro se realizó. Hemos enviado un correo a la dirección electrónica" _
& "<br>que ha suministrado para que confirme y active su cuenta y pueda comenzar a<br>" _
& "publicar anuncios clasificados. <input type=button value=Aceptar onClick=""javascript: location.href='../';"""
else
Response.Write "No se realizó el registro. Por favor, vuelva a intentarlo.<input type=button value=Regresar onClick=""javascript:window.history.back(1);"""
end if

if db.Errors.count>0 then
for each Error_Number in db.errors
%>
<!--#include file="../Trata_Error.asp"-->
<%
next
db.errors.clear
db.close
set db=nothing
set Error_Number=nothing
else
db.close
set db=nothing
set Error_Number=nothing
end if
end if




Function GeneraPassword()
Dim Resultado,caract,password
resultado=""
caract = Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Randomize()
do while len(Resultado)<8
Resultado = Resultado & caract(Int(36*Rnd()))
Loop
GeneraPassword = Resultado
end function
End If

este es el include para tratar errores:

<%
dim er_
er_=Error_Number.NativeError
select case er_
case 170
mensaje_err= "La cadena enviada presenta un error. Revise si dejó un campo obligatorio sin llenar."
case 105
mensaje_err= "La cadena enviada no tiene una sintaxis correcta.Se recomienda volver a iniciar una sesión"
case 2601
mensaje_err ="Introdujo un valor que ya existe"
case 3621
mensaje_err ="La operación fué cancelada"
case 156
mensaje_err ="Dejó en blanco un campo obligatorio."& error_number.description
case 2627
mensaje_err ="Introdujo un valor que ya existe."
case 547
mensaje_err ="Intenta eliminar un registro del cual dependen otros o intenta insertar un registro que debe estar asociado a uno ppal."
mensaje_err=mensaje_err & "(Sistema de integridad y consistencia de la información)"'& error_number.description
case 515
mensaje_err="Dejó en blanco un campo obligatorio. Llene los campos marcados con *"
case 8152
mensaje_err="Introdujo una cantidad de información muy grande para un campo. Debe abreviar un poco."
case 296
mensaje_err="Introdujo una fecha errada."
case else
mensaje_err= "Se produjo el error número :"& er_ &". Comuníquelo al administrador" '& error_number.description
end select
Response.Write "<script language=""javascript"">"
Response.Write "alert("""& mensaje_err & """);"
Response.Write "</script>"
%>

Carlos

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar