<%
Sub RenameTable(conStr,oldName,newName)
  Dim objADOX
  Set objADOX=Server.CreateObject("ADOX.Catalog")
  objADOX.ActiveConnection=conStr
 
  '这里是修改数据表名称的语句
  objADOX.Tables(oldName).Name=newName
 
  Set objADOX=Nothing
 End Sub
 
Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,Old_Table_Name,Table_Name)
 
 
 
Sub RenameField(conStr,Table_Name,oldName,newName)
  Dim objADOX
  Set objADOX=Server.CreateObject("ADOX.Catalog")
  objADOX.ActiveConnection=conStr
 
  '这里是修改数据字段名称的语句
  objADOX.Tables(Table_Name).Columns(oldName).Name=newName
 
  Set objADOX=Nothing
 End Sub
 
Call RenameField("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,Table_Name,Old_Field_Name,Field_Name)

%>