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

您的位置：首页 → 精文荟萃 → 软件资讯 → 用asp程序显示sql数据库所有表的名称（带删除功能）

用asp程序显示sql数据库所有表的名称（带删除功能） 时间：2004/10/7 19:08: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("