显示sql数据库所有表的名称（带删除功能）

<%

' Define your sql info here

strSQLDSN = "xxxx"

strSQLUsername = "sa"

strSQLPassword = ""



' This is where we connect to our sql server

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

ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""

adoConn.Open ConnectionString

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



' now we will just difine a couple things

showblank = "&nbsp;"

shownull = "-null-"



If Request.QueryString("action") = "del" Then

    Delete_Data

Else

    If Request.QueryString("table") <> "" Then

        ' A table has been selected

        Page_Head

        Display_Table_Names

        If Request.QueryString("msg") = "deleted" Then

            Response.Write("

")

            Response.Write("成功删除数据")

        Else

            Response.Write("

")

        End If

        Display_Table_Info

    Else

        ' No table has been selected.

        Page_Head

        Display_Table_Names

    End If

End If



Sub Page_Head

%>










MARGINWIDTH="0">

<%

End Sub



Sub Delete_Data

    strSQL = "Delete From " & Request.QueryString("table") & " Where ID='" &



Request.QueryString("id") & "'"

    Set adoRS = adoConn.Execute(strSQL)

    strURL = "index.asp?table=" & Request.QueryString("table") & "&msg=deleted"

    Response.Redirect(strURL)

End Sub



Sub Display_Table_Names

    Response.Write("" & vbCrLf)

End Sub



Sub Display_Table_Info

    Response.Write("" & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("" & vbCrLf)

    Response.Write("