نسخة الكود كما يلي:
<٪@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.createBject ("adox.catalog")
setadox.activeconnection = conn
"إنشاء جدول ، اكتب سمات
setObjTable = server.createBject ("adox.table")
'Objtable.name = "Table3"
objtable.name = trim (request.form ("tablename")) 'get
'Objtable.ParentCatalog = Adox
حدد الحقل الأول
setObjColumn = server.createBject ("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.createBject ("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 {
حجم الخط: 12 بكسل ؛
}
->
</style> </head>
<body>
<p> 'استخدام خصائص ومجموعات كائن العمود <strong> </strong> ، يمكنك: <br/>
حدد العمود باستخدام خاصية الاسم. <br/>
استخدم خاصية النوع لتحديد نوع بيانات العمود. <br/>
"استخدم سمة السمات لتحديد ما إذا كان العمود هو طول ثابت أو ما إذا كان يمكن أن يحتوي على قيمة فارغة. <br/>
"استخدم الخاصية المحددة لتحديد الحد الأقصى لحجم العمود. <br/>
بالنسبة لقيم البيانات الرقمية ، استخدم خاصية NumericsCale لتحديد النطاق. <br/>
بالنسبة لقيم البيانات الرقمية ، استخدم الخاصية الدقيقة لتحديد الحد الأقصى للدقة. <br/>
"استخدم سمة ParentCatalog لتحديد الكتالوج الأصل للعمود. <br/>