<%
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
%>


文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!