<%
'By：八星瓢虫
Call CreateDatabase("test.mdb","123")
'test.mdb为要生成的数据库名，123为数据库密码

Function CreateDatabase(DBName,DBPass)
       Set myCat = Server.CreateObject( "ADOX.Catalog" )
       myCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBName) &"; Jet OLEDB:Database Password="& DBPass
End Function
%>