 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\' 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("<p><br></p>") Response.Write("<font color=""#FF0000""><b>成功删除数据</b></font>") Else Response.Write("<p><br></p>") End If Display_Table_Info Else \\\' No table has been selected. Page_Head Display_Table_Names End If End If Sub Page_Head %> <HTML> <HEAD> <TITLE>SQL Viewer</TITLE> <BODY aLink=#0663bf leftMargin="0" link="#0663bf" topMargin="0" vLink="#0663bf" MARGINHEIGHT="0" MARGINWIDTH="0"> </HEAD> <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 border=""1"" cellpadding=""0"" cellspacing=""0"" width=""36%"" bordercolor=""#9b9180"">" & vbCrLf) Response.Write(" <tr bgColor=""#9b9180"">" & vbCrLf) Response.Write(" <td width=""100%""><p align=""center""><font color=""#FFFFFF""><strong>SQL Viewer</strong></font></td>" & vbCrLf) Response.Write(" </tr>" & vbCrLf) Response.Write(" <tr bgColor=""#dcd8d1"">" & vbCrLf) Response.Write(" <td width=""100%""><div align=""center""><center><table border=""0"" cellpadding=""0""" & vbCrLf) Response.Write(" cellspacing=""0"" width=""100%"">" & vbCrLf) Response.Write(" <tr>" & vbCrLf) Response.Write(" <td width=""100%""> </td>" & vbCrLf) Response.Write(" </tr>" & vbCrLf) Response.Write(" <tr>" & vbCrLf) Response.Write(" <td width=""100%"" NOWRAP><center> <select size=""1"" name=""Table"" style=""font-family: Verdana; font-size: 8pt"" onChange=""top.location.href=this.options[this.selectedIndex].value"">" & 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 value=""index.asp?table=" & adoRS("name") & """>" & adoRS("name") & "</option>" adoRS.MoveNext Loop Response.Write(" </select> </center></td>" & vbCrLf) Response.Write(" </tr>" & vbCrLf) Response.Write(" <tr>" & vbCrLf) Response.Write(" <td width=""100%""> </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 border=""1"" cellpadding=""0"" cellspacing=""0"" width=""36%"" bordercolor=""#9b9180"">" & vbCrLf) Response.Write(" <tr bgColor=""#9b9180"">" & vbCrLf) Response.Write(" <td width=""100%""><p align=""center""><font color=""#FFFFFF""><strong>SQL 破戒</strong></font></td>" & vbCrLf) Response.Write(" </tr>" & vbCrLf) Response.Write(" <tr bgColor=""#dcd8d1"">" & vbCrLf) Response.Write(" <td width=""100%""><div align=""center""><center><table border=""0"" cellpadding=""0""" & vbCrLf) Response.Write(" cellspacing=""0"" width=""100%"">" & 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 border=""1""><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 size=""2"">" & fieldname.name & "</font></B></TD>") NEXT \\\' fieldname Response.Write("<td><b><font size=""2"">删除</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 size=""2"">" & strFieldValue & "</font></td>" & vbCrLf) NEXT Response.Write("<td valign=top><font size=""2""><a href=""index.asp?table=" & Request.QueryString("table") & "&id=" & strRecordID & "&action=del"">删除</a></font></td>" & vbCrLf) adoRS.movenext LOOP Response.Write("</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 %> 返回类别: 教程 上一教程: 词语搭配游戏的制作(ASP)三 下一教程: 用循环做课程表输出表格 您可以阅读与"显示SQL数据库所有表的名称(带删除功能)"相关的教程: · 用ASP程序显示SQL数据库所有表的名称(带删除功能) · 两个不同数据库表的分页显示解决方案 · 列出数据库中的所有表 · ASP列出SQL数据库中所有数据视图 · 关于将数据成批导入新数据库的程序例子(ACCESS TO SQL) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
