asp下检查表中是否存在某个字段（列）函数

function   checkfields(fieldsname,tablename)    
  flag=false    
  sql="select   *   from   "&tablename    
  set   rs=conn.execute(sql)    
  for   i   =   0   to   rs.fields.count   -   1    
          if   rs.fields(i).name=fieldsname   then      
  flag=true    
  exit   for    
  else    
  flag=false    
  end   if      
  next    
  checkfields=flag    
end   function