删除不规则或不必要的Email地址(数据库)

A nifty script to delete unwanted or invalid Email addresses from a database. Works with Access mdb and SQL Server databases. No config required, ready to use. Can be used for cleaning up any other unwanted records as well. Code: ASP 3.0 & VBScript

<%@Language="VBScript" %>

<%

'****************************************************************************

' This script deletes all unwanted Email addresses from a database

' in multiple tables

' Note: Change the field name EMail to your fields name.....

' Written on: 09.03.2001 by: Cenk Yurtseven

' www.asprobots.com, info@asprobots.com

'****************************************************************************

Const adOpenForwardOnly = 0

Const adLockReadOnly = 1

Const adCmdText = &H0001

Const adUseClient = 3

If Request.QueryString("md") = "dl" And Request.Form("sAddress") <> "" And Request.Form("dbName") <> "" Then

DSNName = Request.Form("dbName") & ".mdb"

Set Con = Server.CreateObject("ADODB.Connection")

Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DSNName)

strAddresses = Request.Form("sAddress")

splitAddress = Split(strAddresses, ",")

Set Table = Con.OpenSchema (20)

Do While Not Table.EOF

TblName = Table("Table_Name")

'The condition below excludes the system tables from beeing processed

If UCase(Left(TblName,4)) <> "MSYS" And UCase(Left(TblName,3)) <> "SYS" And UCase(Left(TblName,4)) <> "RTBL" Then

strSQL = "SELECT * FROM " & TblName

Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorLocation = adUseClient

rs.Open (strSQL), Con, adOpenForwardOnly, adLockReadOnly, adCmdText

For Each fldName In rs.Fields

If fldName.Name = "EMail" Then

For i = 0 To UBound(splitAddress)

oneAddress = Trim(splitAddress(i))

strSQL = "DELETE FROM " & TblName & " WHERE EMail = '" & oneAddress & "'"

Con.Execute(strSQL)

Next

End If

Next

rs.Close

Set rs = Nothing

End If

Table.MoveNext

Loop

Con.Close

Set Con = Nothing

End If

%>