要查看此演示，需要你建立一個數據源，request("table")改為你的表的名字。 <html> <head> <title>main</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body bgcolor="#CCCCCC" text="#000000"> <h2 align="center"><font face="華文新魏">歡迎查看chenyangasp演示程序</font></h2> <p> <% on error resume next table=request("table") //獲得表名 if table<>"" then response.write "數據表:"&table Set PRimary = con.OpenSchema(adSchemaPrimaryKeys, _ Array(empty, empty, table)) if primary("COLUMN_NAME")<>"" then primarykey=primary("COLUMN_NAME") end if primary.close set primary=nothing %> </p> <center> <table width="650" border="1" cellpadding="0" cellspacing="0"> <tr bgcolor="#CCCCCC"> <th class="sundog" width="61"> <div align="center">字段</div> </th> <th class="sundog" width="131"> <div align="center">類型</div> </th> <th class="sundog" width="105"> <div align="center">設定大小</div> </th> <th class="sundog" width="69"> <div align="center">允許空值</div> </th> <th class="sundog" width="69"> 自動編號 </th> <th class="sundog" width="81">主鍵</th> </tr> <%sql="select * from ["&table&"] " set rs=con.execute(sql) for i=0 to rs.fields.count-1 %> <tr bgcolor="#CCCCCC"> <td class="sundog" height="2" width="61"> <div align="center"><%=rs(i).name%></div> //字段名 </td> <td class="sundog" height="2" width="131"> <div align="center"> <% field_type=rs(i).type select case field_type case adEmpty typ = "Empty" case adTinyInt typ = "TinyInt" case adSmallInt typ = "SmallInt" case adInteger typ = "Integer" case adBigInt typ = "BigInt" case adUnsignedTinyInt typ = "UnsignedTinyInt" case adUnsignedSmallInt typ = "UnsignedSmallInt" case adUnsignedInt typ = "UnsignedInt" case adUnsignedBigInt typ = "UnsignedBigInt" case adSingle typ = "Single" case adDouble typ = "Double" case adCurrency typ = "Currency" case adDecimal typ = "Decimal" case adNumeric typ = "Numeric" case adBoolean typ = "Boolean" case adError typ = "Error" case adUserDefined typ = "UserDefined" case adVariant typ = "Variant" case adIDispatch typ = "IDispatch" case adIUnknown typ = "IUnknown" case adGUID typ = "GUID" case adDATE typ = "DATE" case adDBDate typ = "DBDate" case adDBTime typ = "DBTime" case adDBTimeStamp typ = "DBTimeStamp" case adBSTR typ = "BSTR" case adChar typ = "Char" case adVarChar typ = "VarChar" case adLongVarChar typ = "LongVarChar" case adWChar typ = "WChar" case adVarWChar typ = "VarWChar" case adLongVarWChar typ = "LongVarWChar" case adBinary typ = "Binary" case adVarBinary typ = "VarBinary" case adLongVarBinary typ = "LongVarBinary" case adChapter typ = "Chapter" case adPropVariant typ = "PropVariant" case else typ = "Unknown" end select response.write typ%> //字段類型 </div> </td> <td class="sundog" height="2" width="105"> <div align="center"><%=rs(i).definedsize%></div> </td> //字段長度
<td class="sundog" height="2" width="69"> <div align="center"> <% attrib=rs(i).attributes if (attrib and adFldIsNullable)=0 then response.write "No" else response.write "Yes" end if %> </div> </td>
