Publicentral.com - promocion de paginas webpromocion de paginas web
Mostrando Codigo - Asp
Code

Asp - Borrando emails invalidos

Códigos Asp

En este codigo mostramos como borrar direcciones de email invalidas de una base de datos . Sirve para access y sql
Visitas: 12,633 -
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1.     <%@Language="vbscript" %>
  2.     <%
  3.     Const adOpenForwardOnly = 0
  4.     Const adLockReadOnly = 1
  5.     Const adCmdText = &H0001
  6.     Const adUseClient = 3
  7.     if Request.QueryString("md") = "dl" And Request.Form("sAddress") <> "" And Request.Form("dbName") <> "" Then
  8.         DSNName = Request.Form("dbName") & ".mdb"
  9.         Set Con = Server.CreateObject("ADODB.Connection")
  10.         Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DSNName)
  11.         strAddresses = Request.Form("sAddress")
  12.         splitAddress = Split(strAddresses, ",")
  13.         Set Table = Con.OpenSchema (20)
  14.         Do While Not Table.EOF
  15.             TblName = Table("Table_Name")
  16.                         if UCase(Left(TblName,4)) <> "MSYS" And UCase(Left(TblName,3)) <> "SYS" And UCase(Left(TblName,4)) <> "RTBL" Then
  17.                 strSQL = "SELECT * FROM " & TblName
  18.                 Set rs = Server.CreateObject("ADODB.Recordset")
  19.                 rs.CursorLocation = adUseClient
  20.                 rs.Open (strSQL), Con, adOpenForwardOnly, adLockReadOnly, adCmdText
  21.                 For Each fldName In rs.Fields
  22.                     if fldName.Name = "EMail" Then
  23.                         For i = 0 To UBound(splitAddress)
  24.                             oneAddress = Trim(splitAddress(i))
  25.                             strSQL = "DELETE FROM " & TblName & " WHERE EMail = '" & oneAddress & "'"
  26.                             Con.Execute(strSQL)
  27.                         Next
  28.                     End if
  29.                 Next
  30.                 rs.Close
  31.                 Set rs = Nothing
  32.             End if
  33.             Table.MoveNext
  34.         Loop
  35.         Con.Close
  36.         Set Con = Nothing
  37.     End if
  38.     %>
  39.     <!DOCTYPE HTML Public "-//W3C//DTD HTML 4.0 Transitional//EN">
  40.     <HTML>
  41.     <HEAD>
  42.     <TITLE>Borrar multiples emails</TITLE>
  43.     </HEAD>
  44.     <BASEFONT FACE="Verdana">
  45.     <BODY BGCOLOR="#000080" TEXT="#FFFFFF">
  46.     <BR>
  47.     <DIV ALIGN="center"><B>Borrar emails multiples</B>
  48.   <FORM ACTION="deladdre.asp?md=dl" METHOD="post">
  49.     Nombre de la base de datos:
  50.     <INPUT TYPE="text" NAME="dbName" STYLE="text-align: right"><B>.mdb</B>
  51.     <BR>
  52.     <BR>
  53.     Poner todas las direcciones de email que quieres borrar, separadas por coma<B>,</B>
  54.     <BR>
  55.     <TEXTAREA COLS="80" ROWS="8" NAME="sAddress"></TEXTAREA>
  56.     <INPUT TYPE="submit" VALUE="Borrar emails"></FORM>
  57.     <SMALL><B>Nota: Se borraran todas las direcciones que escribas en el cuadro</B></SMALL></DIV>
  58.     </BODY>
  59.     </HTML>
  60.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Borrando emails invalidos" href="http://www.tutores.org/codigo/70/" target="_blank">Borrando emails invalidos</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.