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

您的位置：首页 → 网页设计 → ASP实例 → 显示sql数据库所有表的名称（带删除功能）

显示sql数据库所有表的名称（带删除功能） 时间：2004/11/7 2:53:00来源：本站整理作者：蓝点我要评论(0)

<%

' 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 = " "

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

%>

SQL Viewer

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)

    Response.Write("" & vbCrLf)

    Response.Write("

bordercolor=""#9b9180"">" & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("    " & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("    " & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("

color=""#FFFFFF"">SQL Viewer

cellpadding=""0""" & vbCrLf)

    Response.Write("    cellspacing=""0"" width=""100%"">" & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("        " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("        " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("        " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("

" & vbCrLf)

Response.Write("

" & vbCrLf)

End Sub

Sub Display_Table_Info

Response.Write("

" & vbCrLf)

    Response.Write("

bordercolor=""#9b9180"">" & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("    " & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("  " & vbCrLf)

    Response.Write("    " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("        " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("

color=""#FFFFFF"">SQL 破戒

cellpadding=""0""" & vbCrLf)

    Response.Write("    cellspacing=""0"" width=""100%"">" & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("        " & vbCrLf)

    Response.Write("      " & vbCrLf)

    Response.Write("      " & vbCrLf)

    ' This selects the table that we want to use.

    strSQL="select * from " & Request.QueryString("table") & ""

    set adoRS=adoConn.execute(strSQL)

    ' Now lets start the table

    Response.Write("

" & vbCrLf)

    ' this will find all the fields in that table and write them out

    FOR EACH fieldname IN adoRS.fields

        Response.Write("")

    NEXT ' fieldname

    Response.Write("")

    Response.Write("      " & vbCrLf)

    DO  UNTIL adoRS.eof

        Response.Write("")

        FOR EACH fieldname IN adoRS.fields

            strFieldValue=fieldname.value

            strField=fieldname.name

            IF isnull(strFieldValue) THEN

                strFieldValue=shownull

            END IF

            IF trim(strFieldValue)="" THEN

                strFieldValue=showblank

            END IF

            IF strField = "ID" OR strField = "id" THEN

                strRecordID = strFieldValue

            END IF

            Response.Write("" & vbCrLf)

        NEXT

        Response.Write("" &

vbCrLf)

    adoRS.movenext

    LOOP

    Response.Write("