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

 1   
 2' Define your sql info here   
 3strSQLDSN = "xxxx"   
 4strSQLUsername = "sa"   
 5strSQLPassword = ""   
 6  
 7' This is where we connect to our sql server   
 8Set adoConn = Server.CreateObject("ADODB.Connection")   
 9ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""   
10adoConn.Open ConnectionString   
11Set adoRS = Server.CreateObject("ADODB.Recordset")   
12  
13' now we will just difine a couple things   
14showblank = " "   
15shownull = "-null-"   
16  
17If Request.QueryString("action") = "del" Then   
18Delete_Data   
19Else   
20If Request.QueryString("table") <> "" Then   
21' A table has been selected   
22Page_Head   
23Display_Table_Names   
24If Request.QueryString("msg") = "deleted" Then   
25Response.Write("

1")   
2Response.Write("

<font #ff0000""="" color=""><b>成功删除数据</b></font>

1")   
2Else   
3Response.Write("

 1")   
 2End If   
 3Display_Table_Info   
 4Else   
 5' No table has been selected.   
 6Page_Head   
 7Display_Table_Names   
 8End If   
 9End If   
10  
11Sub Page_Head

1<html>
2<head>
3<title>SQL Viewer</title>
4<body alink="#0663bf" leftmargin="0" link="#0663bf" marginheight="0" marginwidth="0" topmargin="0" vlink="#0663bf">
5</body></head>
6<p><br/></p>

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("<div align="" center""=""><center>" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("<table #9b9180""="" 0""="" 1""="" 36%""="" border="" bordercolor="" cellpadding="" cellspacing="" width="">" & vbCrLf)
Response.Write(" <tr #9b9180""="" bgcolor="">" & vbCrLf)
Response.Write(" <td 100%""="" width=""><p align="" center""=""><font #ffffff""="" color=""><strong>SQL Viewer</strong></font></p></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr #dcd8d1""="" bgcolor="">" & vbCrLf)
Response.Write(" <td 100%""="" width=""><div align="" center""=""><center><table &="" 0""="" 0"""="" 100%""="" border="" cellpadding="" cellspacing="" response.write("="" vbcrlf)="" width="">" & vbCrLf)
Response.Write(" <tr>" & vbCrLf)
Response.Write(" <td 100%""="" width=""> </td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr>" & vbCrLf)
Response.Write(" <td 100%""="" nowrap="" width=""><center> <select 1""="" 8pt""="" font-family:="" font-size:="" name="" onchange="" size="" style="" table""="" top.location.href='this.options[this.selectedIndex].value""' verdana;="">" & vbCrLf)
Response.Write(" <option selected="" value="">请选择表名进行查看.</option>" & 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 "<option """="" &="" index.asp?table=" & adoRS(" name")="" value="">" &

adoRS("name") & "</option>"
adoRS.MoveNext
Loop
Response.Write(" </select> </center></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr>" & vbCrLf)
Response.Write(" <td 100%""="" width=""> </td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" </table>" & vbCrLf)
Response.Write(" </center></div></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write("</table>" & vbCrLf)
Response.Write("</center></div>" & vbCrLf)
End Sub

Sub Display_Table_Info
Response.Write("<div align="" center""=""><center>" & vbCrLf)
Response.Write("<table #9b9180""="" 0""="" 1""="" 36%""="" border="" bordercolor="" cellpadding="" cellspacing="" width="">" & vbCrLf)
Response.Write(" <tr #9b9180""="" bgcolor="">" & vbCrLf)
Response.Write(" <td 100%""="" width=""><p align="" center""=""><font #ffffff""="" color=""><strong>SQL 破戒</strong></font></p></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr #dcd8d1""="" bgcolor="">" & vbCrLf)
Response.Write(" <td 100%""="" width=""><div align="" center""=""><center><table &="" 0""="" 0"""="" 100%""="" border="" cellpadding="" cellspacing="" response.write("="" vbcrlf)="" width="">" & vbCrLf)
Response.Write(" <tr>" & vbCrLf)
Response.Write(" <td></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr>" & 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("<table 1""="" border=""><tr>" & vbCrLf)
' this will find all the fields in that table and write them out
FOR EACH fieldname IN adoRS.fields
Response.Write("<td><b><font 2""="" size="">" & fieldname.name & "</font></b></td>")
NEXT ' fieldname
Response.Write("<td><b><font 2""="" size="">删除</font></b></td>")
Response.Write(" </tr>" & vbCrLf)
DO UNTIL adoRS.eof
Response.Write("<tr>")
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("<td valign="top"><font 2""="" size="">" & strFieldValue &

"</font></td>" & vbCrLf)
NEXT
Response.Write("<td valign="top"><font 2""="" size=""><a "&id=" & strRecordID & " &="" &action='del""' href="" index.asp?table=" &

Request.QueryString(" table")="">删除</a></font></td>" &

vbCrLf)
adoRS.movenext
LOOP
Response.Write("</tr></table>")
adoRS.close
Response.Write(" </tr>" & vbCrLf)
Response.Write(" <tr>" & vbCrLf)
Response.Write(" <td></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write(" </table>" & vbCrLf)
Response.Write(" </center></div></td>" & vbCrLf)
Response.Write(" </tr>" & vbCrLf)
Response.Write("</table>" & vbCrLf)
Response.Write("</center></div>" & vbCrLf)
End Sub