<% 'code by netpatch dim dbfile,sql db="netpatch.asp" dbfile=server.MapPath(db)
set ydb=server.CreateObject("ADOX.Catalog") ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile set ydb=nothing if err.number=0 then Response.Write dbfile & " 創(chuàng)建成功<br> " else Response.Write "創(chuàng)建失敗，原因： " & err.description Response.End end if
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile
