A cópia do código é a seguinte:
<%@Idioma = "vBScript" codePage = "936"%>
<%
iftrim (request.form ("tableName")))
'---- Configurações para abrir a conexão do banco de dados
dbs = "DataSource ="+server.mappath ("database.mdb")+"; provider = microsoft.jet.oledb.4.0;"
setConn = server.createObject ("adodb.connection")
Conn.OPENDBS
'Defina o ADOX, especifique a conexão
setadox = server.createObject ("Adox.catalog")
Setadox.activeConnection = Conn
'Criar tabela, escrever atributos
SetObjTable = server.createObject ("ADOX.TABLE")
'Objtable.name = "Tabela3"
objtable.name = TRIM (request.form ("tableName")) 'formulário Get
'Objtable.parentcatalog = ADOX
'Defina o primeiro campo
setobjcolumn = server.createObject ("ADOX.COLUMN")
'SetObjcolumn.parentcatalog = ADOX
objcolumn.name = "Column1"
objcolumn.type = 202'data tipo 202 representa texto,
objcolumn.attributes = 2'1-Campos exigidos, 2-não recebidos
objtable.columns.appendobjcolumn
setObjcolumn = Nothing'clear a primeira informação de campo
'Defina o segundo campo
setobjcolumn = server.createObject ("ADOX.COLUMN")
'SetObjcolumn.parentcatalog = ADOX
objcolumn.name = "Columl2"
objcolumn.type = 3
objcolumn.attributes = 2
objtable.columns.appendobjcolumn
setObjcolumn = nada
ADOX.TABLES.APPENDOBJTABLE
Setadox = nada
%>
<!
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title> Crie tabelas e campos </ititle>
<styleType = "text/css">
<!-
corpo, td, th {
tamanho de fonte: 12px;
}
->
</style> </head>
<Body>
<p> 'Usando as propriedades e coleções do objeto <strong> </strong>, você pode: <br/>
'Identifique a coluna usando a propriedade Name. <br/>
'Use a propriedade Type para especificar o tipo de dados da coluna. <br/>
'Use o atributo Atributos para determinar se a coluna é um comprimento fixo ou se pode conter um valor nulo. <br/>
'Use a propriedade DefinedSize para especificar o tamanho máximo da coluna. <br/>
'Para valores de dados numéricos, use a propriedade NumericsCale para especificar o intervalo. <br/>
'Para valores de dados numéricos, use a propriedade Precision para especificar a precisão máxima. <br/>
'Use o atributo parentCatalog para especificar o catálogo pai da coluna. <br/>