Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "936"%>
<%
iftrim (request.form ("tableName"))
'---- Pengaturan untuk membuka koneksi basis data
dbs = "DataSource ="+server.mappath ("database.mdb")+"; penyedia = microsoft.jet.oledb.4.0;"
setConn = server.CreateObject ("adodb.connection")
Conn.opendbs
'Tentukan ADOX, tentukan koneksi
setadox = server.createObject ("adox.catalog")
Setadox.activeConnection = Conn
'Buat tabel, tulis atribut
SetoBjtable = server.CreateObject ("adox.table")
'objtable.name = "table3"
objtable.name = trim (request.form ("tableName")) 'dapatkan
'objtable.parentcatalog = adox
'Tentukan bidang pertama
setoBjColumn = server.createObject ("adox.column")
'SetoBjColumn.parentcatalog = adox
objcolumn.name = "kolom1"
objcolumn.type = 202'Data Type 202 mewakili teks,
objcolumn.attributes = 2'1-Bidang yang diperlukan, 2-tidak perlu
objtable.columns.applobjcolumn
setObjColumn = tidak ada yang jelas informasi bidang pertama
'Tentukan bidang kedua
setoBjColumn = server.createObject ("adox.column")
'SetoBjColumn.parentcatalog = adox
objcolumn.name = "kolom2"
objcolumn.type = 3
objcolumn.attributes = 2
objtable.columns.applobjcolumn
setobjcolumn = tidak ada
Adox.tables.appendoBjtable
Setadox = tidak ada
%>
<! Doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title> Buat tabel dan bidang </iteme>
<styleType = "text/css">
<!-
tubuh, td, th {
font-size: 12px;
}
->
</tyle> </head>
<body>
<p> 'Menggunakan properti dan koleksi objek <strong> kolom </strong>, Anda dapat: <br/>
'Identifikasi kolom menggunakan properti nama. <br/>
'Gunakan properti Type untuk menentukan tipe data kolom. <br/>
'Gunakan atribut atribut untuk menentukan apakah kolom adalah panjang tetap atau apakah dapat berisi nilai nol. <br/>
'Gunakan properti yang ditentukan untuk menentukan ukuran maksimum kolom. <br/>
'Untuk nilai data numerik, gunakan properti NumericsCale untuk menentukan rentang. <br/>
'Untuk nilai data numerik, gunakan properti presisi untuk menentukan presisi maksimum. <br/>
'Gunakan atribut ParentCatalog untuk menentukan katalog induk kolom. <br/>