在线数据库管理工具(db007) v1.5

'显示数据库信息
'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
    if strt = "2" then
        echo "以下是 <font color=red> 数据库 </font> 的结构: "
        echo "<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>"
        set objSchema = Conn.OpenSchema(adSchemaTables)
        Do While Not objSchema.EOF
            if objSchema("TABLE_TYPE") = "TABLE" then
                table = objSchema("TABLE_NAME")
                strsql = strsql & getsql(table)'table & "|"'getsql(table)
            end if
        objSchema.MoveNext
        Loop
        objSchema.close
    end if        
    echo "<textarea cols=110 rows=38>" & strsql & "</textarea>"
    conn.close
end sub