هل ممكن من خلال ASP

أول طريقة ممكنة طبعا و هذه عينة لانشاء جدول باستخدام ال ADO و الكود كالتالي :

Private Sub Command1_Click() 

Dim MyDatabase As Database 

Dim NewTable As TableDef 

Dim MyArtist As dao.Index 

Dim MyIndex2 As dao.Index 

Dim MyIndex3 As dao.Index 



' open database 

Set MyDatabase = OpenDatabase(App.Path + "mp3Base.mdb") 

'create the table 

Set NewTable = MyDatabase.CreateTableDef("mp3New") 

On Error Resume Next 

'delete the table if it already exists 

MyDatabase.TableDefs.Delete NewTable.Name 



'add the fields in the table, those used below are just an example 

With NewTable 

  .Fields.Append .CreateField("Title", dbText, 30) 

  .Fields.Append .CreateField("Artist", dbText, 30) 

  .Fields.Append .CreateField("Album", dbText, 30) 

  .Fields.Append .CreateField("Year", dbText, 4) 

  .Fields.Append .CreateField("Comment", dbText, 30) 

  .Fields.Append .CreateField("Genre", dbText, 1) 

  .Fields.Append .CreateField("Position", dbText, 10) 

End With 



'add indexes in the table 

Set MyArtist = NewTable.CreateIndex("Artist") 

MyArtist.Fields.Append MyArtist.CreateField("Artist") 

NewTable.Indexes.Append MyArtist 

Set MyIndex2 = NewTable.CreateIndex("Title") 

MyIndex2.Fields.Append MyIndex2.CreateField("Title") 

NewTable.Indexes.Append MyIndex2 

Set MyIndex3 = NewTable.CreateIndex("Position") 

MyIndex3.Fields.Append MyIndex3.CreateField("Position") 

NewTable.Indexes.Append MyIndex3 



NewTable.Indexes.Refresh 

MyDatabase.TableDefs.Append NewTable 



'close database 

MyDatabase.Close 

End Sub

المزيد هنا http://developerfusion.com/show/3039/

و طبعا هناك طريقة أسهل ربما أسهل لك باستخدام جمل ال SQL مع ال ADO لعمل ذلك مستعينا بالاستعلام التالي :

CREATE TABLE Students 

       (

          Name varchar,

          City varchar,

          Address varchar,

          Age int

        )

اما الطريقة الثانية فهي ممكنة طبعا من خلال ال FSO باستخدام طريقتي getFile و getFolder و هنا تجد المزيد من المعلومات www.w3schools.com/asp

طبعا كيفية البرمجة انا لم أجربها حتى الان و اعتقد انك صاحب الأفكار الكثيرة اذا عليك ان تحاول و اكيد جدا راح تحصل على نتيجة ..

بالتوفيق

لعمل عرض لأسماء الملفات في directory و ليكن اسمه image

dim fso

dim path

dim f

'create filesystemobject

Set fso = CreateObject("Scripting.FileSystemObject")

path = server.MapPath("/image")

'get a folder object

Set f = fso.GetFolder(path)

path = f.path

dim x

for each x in f.files

'Print the name of all files in the image folder

Response.write(x.Name & " the path to file is :" & path & x.Name &"
")

next

بالطبع يمكن تعديل الكود بما يناسبك