在线数据库管理工具(db007) v1.5(32)
'显示数据库信息
'QueryType有以下三个主要参数
'adSchemaTables
'adSchemaColumns
'adSchemaProviderTypes
'Call showSchema (adSchemaTables)
sub showSchema(QueryType)
dim rs
'set rs = conn.OpenSchema()
set rs = conn.OpenSchema (QueryType)
'set rs = conn.OpenSchema (adSchemaProviderTypes)
echo "<div style='overflow-x:auto;overflow-y:auto; width:800;height:380;'><table border=0 border=0 cellpadding=3 cellspacing=1 bgcolor=#CCCCCC><tr>"
for i = 0 to rs.fields.count - 1 '循环字段名
set field = rs.fields.item(i)
echo "<td bgcolor='#FFFFFF'>" & field.name & " </td>"
next
echo "</tr>"
dim i,field
do while not rs.eof '循环数据
echo "<tr>"
for i = 0 to rs.fields.count - 1
set field = rs.fields.item(i)
echo "<td bgcolor='#FFFFFF'>" & field.value & " </td>"
next
echo "</tr>"
rs.MoveNext
loop
echo "</table></div>"
end sub
%>
<%
'==================================================================导出SQL
sub tosql(strt)
'strt = 0 导出结构
'strt = 1 导出内容
dim strsql
if strt = "0" then
table = request("table_name")
echo "以下是表 <font color=red>" & request("table_name") & "</font> 的结构: "
echo "<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>"
strsql = getsql(table)
end if
内容版权声明:除非注明,否则皆为本站原创文章。