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

最新推荐文章于 2022-03-06 17:18:20 发布

con13713

最新推荐文章于 2022-03-06 17:18:20 发布

阅读量183

点赞数

文章标签：数据库

2006-02-23 .14324 网络资源

打印自: 游戏之家
地址: http://www.myst.cn/article/1140706413.html

显示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 = " "
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("

color=""#FFFFFF"">SQL Viewer

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

name=""Table"" style=""font-family: Verdana; font-size: 8pt""

onChange=""top.location.href=this.options[this.selectedIndex].value"">" & vbCrLf)
Response.Write(" 请选择表名进行查看." & vbCrLf)
strSQL = "SELECT name FROM sysobjects WHERE xtype = 'U' AND (Not (id) = 133575514) ORDER

BY name"
Set adoRS = adoConn.Execute(strSQL)
Do While Not adoRS.EOF
Response.Write "" &

adoRS("name") & ""
adoRS.MoveNext
Loop
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("

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

" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("

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("