首页 asp-(9)如何显示SQL数据库所有表的名称？

asp-(9)如何显示SQL数据库所有表的名称？

asp-(9)如何显示SQL数据库所有表的名称？asp-(9)如何显示SQL数据库所有表的名称？如何显示SQL数据库所有表的名称？ "" Then ' 已选择一个表 Page_Head Display_Table_Names If Request.QueryString("msg") = "deleted" Then Response.Write("") Response.Write("成功删除数据") Else Response.Write("") End If Display_Table_Info Else ' 没有表被选中 ...

asp-(9)如何显示SQL数据库所有表的名称？如何显示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("

") Response.Write("成功删除数据") Else Response.Write("

") End If Display_Table_Info Else ' 没有表被选中 Page_Head Display_Table_Names End If End If Sub Page_Head %>

<% 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("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("

SQL查看

" & 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("" & 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("

SQL显示

" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) strSQL="select * from " & Request.QueryString("table") & "" ' 选择我们要显示的表 set adoRS=adoConn.execute(strSQL) Response.Write("

" & vbCrLf) ' 从表开始 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("

" & fieldname.name & "	删除
" & strFieldValue & "	删除

") adoRS.close Response.Write("

" & vbCrLf) Response.Write("

" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("

" & vbCrLf) End Sub %>

                    本文档为【asp-(9)如何显示SQL数据库所有表的名称？】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

asp-(9)如何显示SQL数据库所有表的名称？

你可能还喜欢