实现对Access数据库表重命名的一段代码

<%
call renametable("provider=microsoft.jet.oledb.4.0; data
source=c:example.mdb", "test", "changed")
sub renametable (constr, oldname, newname)
'has to be ole db connection
'create object and connect to db...
dim objadoxdatabase
set objadoxdatabase = server.createobject("adox.catalog")
objadoxdatabase.activeconnection = constr
'change the name...
objadoxdatabase.tables(oldname).name = newname
'clean up...
set objadoxdatabase = nothing
end sub
%>