Кода -копия выглядит следующим образом:
<%@Language = "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 type 202 представляет текст,
objcolumn.attributes = 2'1-required Fields, 2-Non-Required
objtable.columns.appendobjcolumn
setobjcolumn = ничего, что не получите информацию о первом поле
'Определите второе поле
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 = ничего
%>
<! Doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<голова>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title> Создать таблицы и поля </title>
<styletype = "text/css">
<!-
тело, TD, th {
размер шрифта: 12px;
}
->
</style> </head>
<тело>
<p> 'Использование свойств и коллекций объекта COLLENT </strong>, вы можете: <br/>
'Определите столбец, используя свойство имени. <br/>
«Используйте свойство типа, чтобы указать тип данных столбца. <br/>
«Используйте атрибут атрибутов, чтобы определить, является ли столбец фиксированной длиной или может содержать нулевое значение. <br/>
«Используйте свойство definedsize, чтобы указать максимальный размер столбца. <br/>
«Для числовых значений данных используйте свойство NumericScale, чтобы указать диапазон. <br/>
«Для численных значений данных используйте свойство точности, чтобы указать максимальную точность. <br/>
«Используйте атрибут ParentCatalog, чтобы указать родительский каталог столбца. <br/>