asp如何显示SQL数据库所有表的名称?
发布时间:2010-06-08 09:30:00
如何显示SQL数据库所有表的名称?
<%
strSQLDSN = "xxxx"
strSQLUsername = "sa"
strSQLPassword = ""
' 定义数据库相关信息
Set adoConn = Server.CreateObject("ADODB.Connection")
ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""
adoConn.Open ConnectionString
Set adoRS = Server.CreateObject("ADODB.Recordset")
' 连接我们的数据库
showblank = " "
shownull = "-null-"
' 定义这一对儿
If Request.QueryString("action") = "del" Then
Delete_Data
Else
If Request.QueryString("table") <> "" Then
' 已选择一个表
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
' 没有表被选中
Page_Head
Display_Table_Names
End If
End If
Sub Page_Head
%>
<HTML>
<BODY aLink=#0663bf leftMargin="0" link="#0663bf" topMargin="0" vLink="#0663bf" MARGINHEIGHT="0" MARGINWIDTH="0">
<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查看</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)
strSQL="select * from " & Request.QueryString("table") & ""
' 选择我们要显示的表
set adoRS=adoConn.execute(strSQL)
Response.Write("<table border=""1""><tr>" & vbCrLf)
' 从表开始
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
%>
猜你喜欢
- 修复Access数据库,我们一般使用微软Office 97中带的Access 97对数据库进行修复和整理。Access数据库被损坏分以下几种
- ASP从发布至今已经7年了,使用ASP技术已经相当成熟,自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新。但是由于有很多人仍然
- 注意,下述部分主要与DOUBLE和FLOAT列相关,原因在于浮点数的不准确本质。MySQL使用64位十进制数值的精度执行DECIMAL操作,
- 此文刊登在《程序员》2009年5月期:SQL全名是结构化查询语言(Structured Query Language),一直是后台开发者用来
- 如何利用Image Data Type从数据库中读取图片,并在主页中显示图形?然后,写如下代码:< % @&nbs
- udf_WeekDayName 代码如下:CREATE FUNCTION [dbo].[udf_WeekDayName] ( ) RETUR
- 压缩数据库文件可以提高数据库的性能,但是有些时候在压缩数据库时,系统会提醒用户该数据库不能压缩。如果在Access数据库中删除数据库对象,或
- 在Web 开发中,JavaScript的一个很重要的作用就是对DOM进行操作,可你知道么?对DOM的操作是非常昂贵的,因为这会导致浏览器执行
- 在MySQL中,如何实现Top N及M至N段的记录查询?我们可以利用MySQL中SELECT支持的一个子句——LIMIT——来完成这项功能。
- 什么是事件代理(Event Delegation)?如果不太了解的朋友,可详细阅读:《Event delegation in JavaScr
- [摘要]了解如何充分利用SQL Server 2000的全文搜索功能。本文包含有关实现最大吞吐量和最佳性能的几点提示和技
- 在url网址中,我们经常使用server.urlencode来对网址进行编码,特别是遇到网址中有中文字符的时候,如<a href=&q
- 大家都知道一些论坛的标题有高亮显示功能,在这里我不讨论也不研究论坛普遍的实现方法,下面是我的实现方法:实现思路:把要高亮显示的标题加上特定标
- QQ登录Banner增加了剧情的概念之后,已经推出了春节和情人节两期。这之后设想能围绕Banner做的更加丰富,对传统文化的体现也能更为深入
- 关于中大型开发b/s开发中的缓存(cache),我的一些看法,有不正确的或者是有笔误的地方,请指正。thanks首先,应该了解基本的,对于缓
- 如何在约定时间显示特定的提示信息?<%Function Greeting()
- 我们在制作网页时,有时会遇到这样的情况:根据用户的选择,显示不同的内容。比如,制作一个登录网页,上面有
- 在asp中利用excel的一个方法是将excel文件作为一个数据库进行链接,然后的操作和对access数据库操作类似。但是这个方法不是总能有
- 许多游戏玩家一定会对游戏中的动态鼠标指针有很深的印象,其实只要一句简单的CSS(层叠样式表),你也能在网页上实现这种效果。首先,你需要一个鼠
- 网站能切换几套CSS风格早已不是什么新鲜事了。大家也都知道怎么去弄。早上发现一个有意思得站点 http://www.leemunroe.co