코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "936"%>
<%
iftrim (request.form ( "tablemename"))
'---- 데이터베이스 연결을 엽니 다
dbs = "dataSource ="+server.mappath ( "database.mdb")+"; 제공자 = 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 ( "tablemename")) '양식 get
'objtable.parentcatalog = adox
'첫 번째 필드를 정의하십시오
setobjcolumn = server.createobject ( "adox.column")
'setobjcolumn.parentcatalog = adox
objcolumn.name = "column1"
objcolumn.type = 202'Data 유형 202는 텍스트를 나타냅니다.
objcolumn.attributes = 2'1- required Fields, 2-- 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;
}
->
</스타일> </head>
<body>
<p> '<strong> 열 </strong> 객체의 속성과 컬렉션을 사용하면 : <br/>
'이름 속성을 사용하여 열을 식별하십시오. <br/>
'유형 속성을 사용하여 열의 데이터 유형을 지정하십시오. <br/>
'열이 고정 길이인지 또는 널 값을 포함 할 수 있는지 여부를 결정하기 위해 속성 속성을 사용하십시오. <br/>
'정의 된 크기 속성을 사용하여 열의 최대 크기를 지정하십시오. <br/>
'숫자 데이터 값의 경우 NumericsCale 속성을 사용하여 범위를 지정하십시오. <br/>
'숫자 데이터 값의 경우 정밀 속성을 사용하여 최대 정밀도를 지정하십시오. <br/>
'열의 상위 카탈로그를 지정하려면'Parentcatalog 속성을 사용하십시오. <br/>