高分请教有没有那个知道利害ASP程序中直接创建数据库?

 1<script id="makedb" language="VBScript">   
 2  
 3Sub CreateDB (path)   
 4Dim cat   
 5Set cat = WScript.CreateObject("ADOX.Catalog")   
 6cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"   
 7Set cat = Nothing   
 8End Sub   
 9  
10Dim path   
11path = InputBox("Type the path of the database to create.", "Database Path", "C:\newdb.mdb")   
12  
13Dim fso   
14Set fso = WScript.CreateObject("Scripting.Filesystemobject")   
15If fso.FileExists(path) Then   
16If MsgBox ("A file already exists at this location. Do you want to replace it?", vbOKCancel Or vbExclamation, "Warning") = vbOK Then   
17fso.DeleteFile path   
18CreateDB path   
19End If   
20Else   
21CreateDB path   
22End If   
23  
24</script>