コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "936"％>
<％
iftrim（request.form（ "tablename"））
'----データベース接続を開く設定
dbs = "dataSource ="+server.mappath（ "database.mdb"）+"; provider = microsoft.jet.oledb.4.0;"
setConn = server.createObject（ "adodb.connection"）
conn.opendbs
'Adoxを定義し、接続を指定します
setAdox = server.createObject（ "adox.catalog"）
setadox.activeconnection = conn
'テーブルを作成し、属性を書き込みます
setobjtable = server.createObject（ "adox.table"）
'objtable.name = "table3"
objtable.name = trim（request.form（ "tablename"）） 'form get
'objtable.parentcatalog = adox
'最初のフィールドを定義します
setobjcolumn = server.createObject（ "adox.column"）
'setobjcolumn.parentcatalog = adox
objcolumn.name = "column1"
objcolumn.type = 202'dataタイプ202はテキストを表します。
objcolumn.attributes = 2'1-リクエアされたフィールド、2-ノンレクアード
objtable.columns.appendobjcolumn
setobjcolumn = Nothing'tear '最初のフィールド情報
'2番目のフィールドを定義します
setobjcolumn = server.createObject（ "adox.column"）
'setobjcolumn.parentcatalog = adox
objcolumn.name = "column2"
objcolumn.type = 3
objcolumn.attributes = 2
objtable.columns.appendobjcolumn
setobjcolumn =何もない
adox.tables.appendobjtable
setAdox =何もない
％>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<Title>テーブルとフィールドの作成</title>
<styletype = "text/css">
<！ -
ボディ、td、th {
フォントサイズ：12px;
}
- >
</style> </head>
<body>
<p> '<strong>列</strong>オブジェクトのプロパティとコレクションを使用すると、<br />
'名前プロパティを使用して列を識別します。 <br/>
'型プロパティを使用して、列のデータ型を指定します。 <br/>
'属性属性を使用して、列が固定されているかどうか、またはnull値を含めることができるかどうかを判断します。 <br/>
「定義されたサイズプロパティを使用して、列の最大サイズを指定します。 <br/>
'数値データ値については、numericscaleプロパティを使用して範囲を指定します。 <br/>
'数値データ値については、Precisionプロパティを使用して最大精度を指定します。 <br/>
'ParentCatalog属性を使用して、列の親カタログを指定します。 <br/>