位置：首页>> 网络编程>> Asp编程>> asp如何从数据库中删除废旧的电子信箱地址？

asp如何从数据库中删除废旧的电子信箱地址？

　来源：asp之家　发布时间：2009-11-15 20:04:00　

标签：电子信箱,数据库,删除,asp

时间久了，注册用户和朋友数据库里的废记录渐渐多了起来，尤其是电子邮件地址，请问有什么好的办法可以快速安全地将它们删除吗？

试试下面这个办法，它会将我们从所有被选的数据库（Access 和 SQL Server数据库）中的表项中删除掉所选择的不规则或不想要的地址，（有点拗口是吧？它的意思是：1、在Access 和 SQL数据库中操作，2、先选择数据库，再选择表项，最后确定要删除的邮件地址）。这个好办法甚至可以轻松地清除其它我们不想要的或令人讨厌的记录。当然，这个文件必须位于和数据库相同的文件夹里。

<％@Language="vbscript" ％>
<％
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")
            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
％>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</HEAD>
<BASEFONT FACE="Verdana">
<BODY BGCOLOR="#000080" TEXT="#FFFFFF">
<BR>
<DIV ALIGN="center"><B>asp之家asp教程之邮件删除</B>
<FORM ACTION="deladdre.asp?md=dl" METHOD="post">数据库名称:
<INPUT TYPE="text" NAME="dbName" STYLE="text-align: right"><B>.mdb</B>
<BR>
<BR>请将所有不想要的邮件地址添加到下列文本框,并用逗号隔开:
<BR>
<TEXTAREA COLS="80" ROWS="8" NAME="sAddress"></TEXTAREA>
<INPUT TYPE="submit" VALUE="开始删除"></FORM>
</BODY>
</HTML>

投稿

asp如何从数据库中删除废旧的电子信箱地址？

猜你喜欢