📄 index.asp
字号:
<html>
<head>
<title>数据库的结构显示</title>
</head>
<body bgcolor=Peachpuff>
<p align=center><font face="华文行楷" size=+2><STRONG>实例 数据库结构的显示</STRONG></font><p>
<table border="1" align=center width=100 bgcolor=LightSteelBlue><tr>
<%
set rs=server.createobject("adodb.recordset")
'对于SQL中的系统数据库PUBS
conn="provider=Sqloledb;server=servername;uid=username;pwd=password;database=pubs"
'servername：所用的服务器名
'UserID：用户名，常用为SA
'password：数据库密码，一般情况下为空
'显示数据库中的所有用户表
'sql="select * from sysobjects where xtype='U'"
'显示数据库中PUBS的所有系统表
sql="select * from sysobjects where xtype='S'"
'对于ACCESS中的数据库凡MYDB
'conn = "DBQ=" + server.mappath("message.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'sql="select * from MsysObjects where type=1"
rs.open sql,conn,1,1
howmanyfields=rs.Fields.Count-1
for i=0 to howmanyfields
%>
<TD>
<STRONG><%=rs(i).name%></STRONG>
</td>
<%
next
%>
</tr>
<%do while not rs.EOF%>
<TR>
<%
for i=0 to howmanyfields
thisvalue=rs(i)
if isnull(thisvalue) then
thisvalue=" "
end if
%>
<td><%=thisvalue%></td>
<%
next
%>
</tr>
<%
rs.MoveNext
loop
rs.Close
set rs=nothing
set conn=nothing
%>
</TABLE> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -