การคัดลอกรหัสมีดังนี้:
<%@language = "vbscript" codePage = "936"%>
-
iftrim (request.form ("tablename")))
'---- การตั้งค่าเพื่อเปิดการเชื่อมต่อฐานข้อมูล
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 = "ตารางที่ 3"
objtable.name = trim (request.form ("tablename")) '
'objtable.parentCatalog = ADOX
'กำหนดฟิลด์แรก
setObjColumn = server.createObject ("adox.column")
'setobjcolumn.parentCatalog = ADOX
objcolumn.name = "column1"
objcolumn.type = 202'Data Type 202 หมายถึงข้อความ
objcolumn.attributes = 2'1-เขตข้อมูลที่ต้องการ, 2-ไม่ต้องการ
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">
<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/>
'สำหรับค่าข้อมูลตัวเลขให้ใช้คุณสมบัติความแม่นยำเพื่อระบุความแม่นยำสูงสุด <br/>
'ใช้แอตทริบิวต์ ParentCatalog เพื่อระบุแคตตาล็อกหลักของคอลัมน์ <br/>