sql删除数据库:用asp程序显示sql数据库所有表的名称(带删除功能)来源: 发布时间:星期四, 2009年2月12日 浏览:108次 评论: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.Record ![]() \' now we will just d ![]() 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\") & \"\" ![]() \' 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) DOUNTIL 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 %> 0
相关文章读者评论发表评论 |