利用asp相关的函数动态更新access数据库结构,

drs.open "alter table [new] drop column [game]",conn,1,3    '删除new表中的game列 

on error resume next   '打开错误处理

  set rs=server.CreateObject("adodb.recordset") '在表new中删除 game 字段
  drs.open "alter table [new] drop column [game]",conn,1,3 'drop删除
  drs.open "alter table [new] drop column [conter] varchar(255)"   '添加conter 字段,类型为:文本,长度:255

  if Err then  '出错处理
   response.write "<font color='red'>删除 hhtml 字段失败，原因："&Err.Description&"</font>" & vbcrlf
   Err.Clear
  else  '正确处理
   response.write "<font color='blue'>删除 hhtml 字段成功</font>" & vbcrlf
  end if
 
rs.close
 set rs=nothing